OFFSET
1,2
COMMENTS
For n > 1, a(n) is a prime.
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..1000
MATHEMATICA
a = {1}; Do[k = 2; While[Or[! PrimeQ[Total@ a + k], MemberQ[a, k]], k += 2]; AppendTo[a, k], {49}]; Accumulate@ a (* Michael De Vlieger, Aug 26 2017, after Jayanta Basu at A073659 *)
PROG
(PARI) v=[1]; n=1; vp=[1]; while(n<200, if(isprime(p=n+vecsum(v)) && !vecsearch(vecsort(v), n), v=concat(v, n); vp = concat(vp, p); n=0); n++); vp \\ Michel Marcus, Aug 26 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Aug 26 2017
STATUS
approved