OFFSET
1,1
REFERENCES
H. Rademacher, Lectures on Elementary Number Theory, pp. 33-38.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
FactorInteger[#][[1, 1]]&/@(Range[90]^2+3) (* Harvey P. Dale, Apr 22 2018 *)
PROG
(PARI) smallasqp3(m) = { for(a=1, m, y=a^2 + 3; f = factor(y); v = component(f, 1); v1 = v[length(v)]; print1(v[1]", ") ) }
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Dec 05 2003
STATUS
approved