OFFSET
1,1
EXAMPLE
367 is in the sequence because (1) it is prime and (2) the sum of its digits (3 + 6 + 7 = 16) plus the sum of the digits of 367^2 (134689 -> 1 + 3 + 4 + 6 + 8 + 9 = 31) equals 16 + 31 = 47, which is prime.
MATHEMATICA
Select[Prime[Range[300]], PrimeQ[Total[IntegerDigits[#]]+Total[IntegerDigits[#^2]]]&]
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Harvey P. Dale, Feb 16 2011
STATUS
approved