OFFSET
1,2
COMMENTS
All terms are of the form k^2 or 2*k^2. There is no further term up to 16000.
a(5) > 10^6 or it doesn't exist. - Robert Price, Mar 03 2015
MATHEMATICA
Do[If[PrimeQ[10^n + DivisorSigma[1, n]], Print[n]], {n, 16000}]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Farideh Firoozbakht, Jul 12 2005
STATUS
approved