login
Primes of the form p + sum of squares of digits of p, where p is prime.
0

%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