OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(5)=1321 because 36^2+A000005(36^2)=1321.
MAPLE
select(isprime, map(n -> n^2 + numtheory:-tau(n^2), [1, seq(i, i=2..1000, 2)])); # Robert Israel, Apr 11 2018
MATHEMATICA
Select[Table[n^2+DivisorSigma[0, n^2], {n, 300}], PrimeQ] (* Harvey P. Dale, Oct 20 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 07 2011
EXTENSIONS
Edited by Robert Israel, Apr 11 2018
STATUS
approved