OFFSET
1,1
COMMENTS
Prime factors taken without multiplicity. - Harvey P. Dale, Dec 02 2014
REFERENCES
H. Rademacher, Lectures on Elementary Number Theory, pp. 33-38.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
Triangle starts:
2;
5;
2, 5;
17;
2, 13;
37;
2, 5;
5, 13;
2, 41,;
101;
...
MATHEMATICA
Flatten[Table[Transpose[FactorInteger[n^2+1]][[1]], {n, 40}]] (* Harvey P. Dale, Dec 02 2014 *)
PROG
(PARI) allasqp1(m) = { for(a=1, m, y=a^2 + 1; f = factor(y); v = component(f, 1); ln = length(v); for(i=1, ln, print1(v[i]", ")) ) }
CROSSREFS
KEYWORD
easy,nonn,tabf
AUTHOR
Cino Hilliard, Dec 05 2003
STATUS
approved