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

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

Author

Jayanta Basu, May 09 2013

Keywords

• nonn
• base

Comments

Primes generated by A076162.

Examples

			41 is a member since 41=31+(3^2+1^2).
		

Crossrefs

Cf. A048519, A048520, A076162.

Programs

Mathematica

Sort[Select[Table[p=Prime[n]; p+Total[IntegerDigits[p]^2],{n,262}],PrimeQ]]