login
A176985
Primes p such that sum of digits + 5 is prime.
2
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
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
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Apr 30 2010
STATUS
approved