|
| |
|
|
A158217
|
|
Primes whose digit sum is a single digit prime.
|
|
2
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A030284 A068148 A036344
Adjacent sequences: A158214 A158215 A158216 * 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
|
| |
|
|
