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,1

Comments

Primes generated by A076162.

Links

Table of n, a(n) for n=1..48.

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

Cf. A048519, A048520, A076162.

Sequence in context: A259216 A339867 A135283 * A213655 A119488 A165350

Adjacent sequences: A225516 A225517 A225518 * A225520 A225521 A225522

Keyword

nonn,base

Author

Jayanta Basu, May 09 2013

Status

approved