login
A291546
a(n) = Sum_{k=1..n} A073659(k).
2
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,2
COMMENTS
For n > 1, a(n) is a prime.
LINKS
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
Cf. A000040, A008578, A073659. Apart from the first term the same as A291544.
Sequence in context: A091652 A372209 A334163 * A134197 A053001 A053607
KEYWORD
nonn
AUTHOR
Seiichi Manyama, Aug 26 2017
STATUS
approved