A094318 Primes n with property that sum of digits that are 1 or a prime is prime.

2, 3, 5, 7, 11, 23, 29, 43, 47, 59, 67, 79, 83, 97, 101, 113, 131, 137, 151, 157, 173, 181, 191, 223, 227, 239, 241, 263, 269, 281, 283, 293, 311, 313, 317, 331, 337, 349, 353, 373, 389, 421, 439, 443, 463, 467, 479, 487, 509, 557, 569, 571, 577

Offset: 1

Author

Harvey Dale, May 31 2004

Keywords

• nonn
• base

Crossrefs

Cf. A094317.

Programs

Mathematica

sdprQ[n_]:=PrimeQ[Total[Select[IntegerDigits[n],MemberQ[{1,2,3,5,7},#]&]]]; Select[Prime[Range[200]],sdprQ] (* Harvey P. Dale, May 19 2014 *)