OFFSET
0,1
COMMENTS
Obviously beginning with any number less than 3 goes nowhere.
Employed Kim Walisch's primesum.
MATHEMATICA
NestList[Sum[Prime@ i, {i, PrimePi@ #}] &, 3, 8] (* Michael De Vlieger, Mar 09 2017 *)
PROG
(PARI) a(n) = if(n==0, 3, sum(k=1, primepi(a(n-1)), prime(k))); \\ Indranil Ghosh, Mar 13 2017
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
Robert G. Wilson v, Mar 08 2017
STATUS
approved