OFFSET
2,1
COMMENTS
Computable as largest value of GCD(n^2,j) for j = 1+n^2, ..., -1+2*n^2.
LINKS
Robert Israel, Table of n, a(n) for n = 2..10000
FORMULA
a(n) = n^2 / A020639(n). - Amiram Eldar, Jul 17 2024
MAPLE
f:= n -> n^2/min(numtheory:-factorset(n)):
map(f, [$2..100]); # Robert Israel, Jan 02 2019
MATHEMATICA
Table[Max[Table[GCD[n^2, w], {w, n^2+1, 2*n^2-1}]], {n, 2, 128}]
a[n_] := n^2/FactorInteger[n][[1, 1]]; Array[a, 127, 2] (* Amiram Eldar, Jul 17 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 22 2002
STATUS
approved