|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Harvey Dale, May 31 2004
|
|
STATUS
|
approved
|
|
|
|