The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A069709 Primes with arithmetic mean of digits an integer (sum of digits = a multiple of number of digits). 10
 2, 3, 5, 7, 11, 13, 17, 19, 31, 37, 53, 59, 71, 73, 79, 97, 1021, 1061, 1069, 1087, 1151, 1201, 1223, 1249, 1289, 1429, 1447, 1483, 1487, 1511, 1559, 1601, 1609, 1627, 1663, 1667, 1753, 1847, 1861, 1933, 1951, 1973, 1999, 2011, 2099, 2141, 2213, 2239, 2293 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS MATHEMATICA Do[p = Prime[n]; If[ IntegerQ[ Apply[ Plus, IntegerDigits[p]] / Floor[ Log[10, p] + 1]], Print[p]], {n, 1, 10^3}] Select[Prime[Range[400]], IntegerQ[Mean[IntegerDigits[#]]]&] (* Harvey P. Dale, Jan 29 2012 *) CROSSREFS Cf. A069710, A069711, A069712. Sequence in context: A002200 A181561 A216496 * A144755 A069090 A321150 Adjacent sequences:  A069706 A069707 A069708 * A069710 A069711 A069712 KEYWORD nonn,base AUTHOR Amarnath Murthy, Apr 08 2002 EXTENSIONS Edited and extended by Robert G. Wilson v, Apr 12 2002 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 13 18:03 EDT 2022. Contains 356107 sequences. (Running on oeis4.)