|
Search: id:A069710
|
|
|
| A069710 |
|
Primes with arithmetic mean of digits = 1 (sum of digits = number of digits). |
|
+0
4
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Do[p = Prime[n]; If[ Apply[ Plus, IntegerDigits[p]] == Floor[ Log[10, p] + 1], Print[p]], {n, 1, 10^5}]
|
|
CROSSREFS
|
Cf. A069709, A069711, A069712.
Sequence in context: A015511 A065050 A099440 this_sequence A046187 A004811 A126197
Adjacent sequences: A069707 A069708 A069709 this_sequence A069711 A069712 A069713
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 08 2002
|
|
EXTENSIONS
|
Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 12 2002
|
|
|
Search completed in 0.005 seconds
|
