OFFSET
1,1
LINKS
Eric M. Schmidt, Table of n, a(n) for n = 1..1000
MATHEMATICA
t = {s = 2}; Do[If[(y = Total[IntegerDigits[x = Prime[n]]]) > s, AppendTo[t, s = y]], {n, 2, 5*10^6}]; t (* Jayanta Basu, Aug 09 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 05 2001
EXTENSIONS
More terms from Eric M. Schmidt, Oct 08 2013
STATUS
approved