STATUS
reviewed
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
reviewed
approved
proposed
reviewed
editing
proposed
b[n_] := SelectFirst[Divisors[n], #^2 >= n&];
a[n_] := Min[Table[Max[b[i], b[n-i]], {i, 1, n/2}]];
Table[a[n], {n, 2, 100}] (* Jean-François Alcover, Jan 26 2025, after Alois P. Heinz *)
approved
editing
Glen Whitney, <a href="/A376138/b376138_1.txt">Table of n, a(n) for n = 2..10000</a>
reviewed
approved
proposed
reviewed
editing
proposed
Glen Whitney, <a href="/A376138/b376138_1.txt">Table of n, a(n) for n = 2..10000</a>
approved
editing
proposed
approved