OFFSET
0,2
LINKS
Zak Seidov, Table of n, a(n) for n = 0..1000
EXAMPLE
a(5) = 2+3+5+7+1 = 18.
MATHEMATICA
s=0; ss={0}; Do[id=IntegerDigits[Prime[k]]; Do[AppendTo[ss, s=s+id[[i]]], {i, Length[id]}], {k, 100}]; ss (* Zak Seidov, Jan 23 2015 *)
PROG
(PARI) {s=0; print1(0", "); for(k=1, 100, id=digits(prime(k)); for(i=1, # id, print1(s=s+id[i]", ")))} \\ Zak Seidov, Jan 24 2015
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Amarnath Murthy, Jan 08 2002
EXTENSIONS
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 01 2003
STATUS
approved