OFFSET
1,1
LINKS
Delbert L. Johnson, Table of n, a(n) for n = 1..20000
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
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Apr 08 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v, Apr 12 2002
STATUS
approved