OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
4^2=16, prime(4)=7, 1+6=7
8^2=64, prime(8)=19, 6+4=1+9
11^2=121, prime(11)=31, 1+2+1=3+1
22^2=484, prime(22)=79, 4+8+4=7+9
34^2=1156, prime(22)=139, 1+1+5+6=1+3+9.
MATHEMATICA
Position[Table[Plus@@IntegerDigits[Prime[n]]-Plus@@IntegerDigits[n^2], {n, 1, 3000}], 0]//Flatten
Select[Range[2000], Total[IntegerDigits[#^2]]==Total[IntegerDigits[ Prime[ #]]]&] (* Harvey P. Dale, May 22 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Oct 16 2009
STATUS
approved