A076162 Primes p such that p + sum of squares of digits of p is also prime.

11, 13, 17, 19, 31, 73, 97, 101, 103, 107, 109, 127, 251, 277, 347, 367, 431, 433, 457, 499, 613, 631, 677, 691, 701, 709, 727, 811, 877, 941, 947, 1009, 1063, 1069, 1087, 1171, 1229, 1283, 1289, 1399, 1423, 1429, 1531, 1553, 1597, 1607, 1621, 1667, 1669, 1733

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Example

13 is OK because 13+(1^2+3^2)=23 is a prime.

Mathematica

Select[Prime[Range[2, 300]], PrimeQ[#+Total[IntegerDigits[#]^2]]&] (* Vincenzo Librandi, Apr 13 2013 *)

Crossrefs

Sequence in context: A106101 A032590 A181576 * A156902 A050674 A164329

Adjacent sequences: A076159 A076160 A076161 * A076163 A076164 A076165

Keyword

nonn,base

Author

Zak Seidov, Nov 01 2002

Extensions

More terms from Vincenzo Librandi, Apr 13 2013

Status

approved