A291546 a(n) = Sum_{k=1..n} A073659(k).

1, 3, 7, 13, 23, 31, 43, 59, 73, 97, 127, 149, 167, 193, 227, 263, 283, 311, 349, 389, 421, 463, 509, 557, 601, 653, 709, 769, 823, 881, 947, 997, 1061, 1123, 1193, 1277, 1367, 1439, 1531, 1607, 1693, 1787, 1861, 1949, 2017, 2099, 2179, 2281, 2377, 2477

Offset: 1

Author

Seiichi Manyama, Aug 26 2017

Keywords

• nonn

Comments

For n > 1, a(n) is a prime.

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000040, A008578, A073659. Apart from the first term the same as A291544.

Programs

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 *)

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