OFFSET
2,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 2..10000
MAPLE
a:= n-> max(numtheory[factorset](n^2-2)):
seq(a(n), n=2..60); # Alois P. Heinz, Jul 22 2017
MATHEMATICA
Table[FactorInteger[n^2 - 2][[-1, 1]], {n, 2, 57}] (* Michael De Vlieger, Jul 22 2017 *)
PROG
(PARI) a(n) = vecmax(factor(n^2-2)[, 1]); \\ Michel Marcus, Jul 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Aug 12 2009
EXTENSIONS
Offset corrected by R. J. Mathar, Aug 21 2009
STATUS
approved