|
Search: id:A158217
|
|
|
| A158217 |
|
Primes whose digit sum is a single digit prime. |
|
+0
3
|
|
| 2, 3, 5, 7, 11, 23, 41, 43, 61, 101, 113, 131, 151, 223, 241, 311, 313, 331, 401, 421, 601, 1013, 1031, 1033, 1051, 1103, 1123, 1213, 1231, 1301, 1303, 1321, 2003, 2111, 2113, 2131, 2203, 2221, 2311, 3011, 3121, 3301, 4001, 4003, 4021, 4111, 4201, 5011, 5101
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Chris Caldwell, The First 1,000 Primes
|
|
EXAMPLE
|
The digit sum of the prime 421 is 7 which is a single digit prime.
|
|
MATHEMATICA
|
okQ[n_]:=Module[{ans=Plus@@IntegerDigits[n]}, ans<10&&PrimeQ[ans]]; Select[Prime[Range[1000]], okQ] [From Harvey P. Dale (hpd1(AT)nyu.edu), May 27 2009]
|
|
CROSSREFS
|
Sequence in context: A019344 A057459 A068853 this_sequence A030284 A068148 A036344
Adjacent sequences: A158214 A158215 A158216 this_sequence A158218 A158219 A158220
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Parthasarathy Nambi (PachaNambi(AT)yahoo.com), Mar 14 2009
|
|
EXTENSIONS
|
More terms provided and Mathematica program provided. Harvey P. Dale (hpd1(AT)nyu.edu), May 27 2009
|
|
|
Search completed in 0.002 seconds
|
