OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
2*7^2 - 2*7 + 1 = 85 = 5*17, so a(7) = 17.
MATHEMATICA
a[n_] := FactorInteger[n^2 + (n+1)^2][[-1, 1]]; Array[a, 60] (* Amiram Eldar, Oct 29 2024 *)
PROG
(PARI) xnpym1n(m) = { for(n=1, m, y = n^2+(n+1)^2; f = factor(y); l = length(component(f, 1)); v = component(component(f, 1), l); print1(v", "); ) }
CROSSREFS
KEYWORD
easy,nonn,changed
AUTHOR
Cino Hilliard, Dec 31 2003
EXTENSIONS
Edited by Ray Chandler, Jan 03 2004
Offset corrected by Georg Fischer, May 27 2024
STATUS
approved