|
| |
|
|
A073903
|
|
List of k-digit primes with digit sum k for k >= 1.
|
|
1
| |
|
|
11, 1021, 1201, 2011, 3001, 10103, 10211, 10301, 11003, 12011, 12101, 13001, 20021, 20201, 21011, 21101, 30011, 1000033, 1000213, 1000231, 1000303, 1001023, 1001041, 1001311, 1001401, 1002121, 1003003, 1003111, 1003201, 1010131, 1010203, 1011013, 1012201
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Flatten[Table[Select[Prime[Range[PrimePi[10^(n-1)]+1, PrimePi[10^n]]], Total[IntegerDigits[#]]==n&], {n, 7}]] (* From Harvey P. Dale, Aug 09 2011 *)
okQ[p_] := Module[{d = IntegerDigits[p]}, Length[d] == Total[d]]; Select[Prime[Range[100000]], okQ] (* T. D. Noe, Aug 09 2011 *)
|
|
|
CROSSREFS
| Cf. A073902.
Sequence in context: A065050 A099440 A069710 * A046187 A004811 A126197
Adjacent sequences: A073900 A073901 A073902 * A073904 A073905 A073906
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Aug 18 2002
|
|
|
EXTENSIONS
| Corrected and extended by Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), Aug 23 2002
Corrected and extended by Harvey P. Dale, Aug 09 2011
|
| |
|
|
