OFFSET
1,1
FORMULA
MATHEMATICA
Table[Apply[Plus, IntegerDigits[Sum[Prime[n + m], {m, 0, 7}]]], {n, 1, 100}]
CROSSREFS
KEYWORD
nonn,less,base
AUTHOR
E.J.P. Vening and Roger L. Bagula, Nov 19 2008
STATUS
approved