A176985 Primes p such that sum of digits + 5 is prime.

2, 11, 17, 53, 59, 71, 101, 107, 149, 167, 233, 239, 251, 257, 293, 347, 383, 419, 431, 491, 503, 509, 521, 563, 617, 653, 701, 743, 761, 941, 1049, 1061, 1151, 1193, 1223, 1229, 1283, 1319, 1373, 1409, 1427, 1481, 1511, 1553, 1571, 1601, 1607, 1733

Offset: 1

Author

Vincenzo Librandi, Apr 30 2010

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. similar sequences listed in A243586.

Programs

Magma

[p: p in PrimesUpTo(1500) | IsPrime(q) where q is 5+&+Intseq(p)]; // Vincenzo Librandi, Jun 07 2014

Mathematica

Select[Prime[Range[2000]], PrimeQ[Plus@@IntegerDigits[#] + 5] &] (* Vincenzo Librandi, Feb 15 2014 *)