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

Links

Table of n, a(n) for n=1..53.

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 *)

Crossrefs

Cf. A094317.

Sequence in context: A156658 A118723 A118721 * A019344 A229291 A057459

Adjacent sequences: A094315 A094316 A094317 * A094319 A094320 A094321

Keyword

nonn,base

Author

Harvey Dale, May 31 2004

Status

approved