login
A094318
Primes n with property that sum of digits that are 1 or a prime is prime.
2
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
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
KEYWORD
nonn,base
AUTHOR
Harvey Dale, May 31 2004
STATUS
approved