login
A225519
Primes of the form p + sum of squares of digits of p, where p is prime.
0
13, 23, 41, 67, 101, 103, 113, 131, 157, 181, 191, 227, 281, 379, 421, 457, 461, 467, 547, 659, 677, 677, 751, 809, 811, 829, 839, 877, 1039, 1039, 1091, 1093, 1109, 1187, 1201, 1223, 1319, 1361, 1439, 1453, 1531, 1567, 1571, 1613, 1663, 1693, 1753, 1789
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