OFFSET
1,1
COMMENTS
Primes generated by A076162.
EXAMPLE
41 is a member since 41=31+(3^2+1^2).
MATHEMATICA
Sort[Select[Table[p=Prime[n]; p+Total[IntegerDigits[p]^2], {n, 262}], PrimeQ]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jayanta Basu, May 09 2013
STATUS
approved