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

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. similar sequences listed in A243586.

Sequence in context: A187762 A217306 A106981 * A089592 A106982 A347600

Adjacent sequences: A176982 A176983 A176984 * A176986 A176987 A176988

Keyword

nonn,base

Author

Vincenzo Librandi, Apr 30 2010

Status

approved