%I #6 May 09 2013 16:04:08
%S 13,23,41,67,101,103,113,131,157,181,191,227,281,379,421,457,461,467,
%T 547,659,677,677,751,809,811,829,839,877,1039,1039,1091,1093,1109,
%U 1187,1201,1223,1319,1361,1439,1453,1531,1567,1571,1613,1663,1693,1753,1789
%N Primes of the form p + sum of squares of digits of p, where p is prime.
%C Primes generated by A076162.
%e 41 is a member since 41=31+(3^2+1^2).
%t Sort[Select[Table[p=Prime[n]; p+Total[IntegerDigits[p]^2],{n,262}],PrimeQ]]
%Y Cf. A048519, A048520, A076162.
%K nonn,base
%O 1,1
%A _Jayanta Basu_, May 09 2013