A075574 a(1) = 1, then the smallest number (obviously even) greater than the previous term such that every partial sum is prime.

1, 2, 4, 6, 10, 14, 16, 18, 26, 30, 36, 48, 52, 54, 56, 58, 60, 66, 74, 78, 88, 90, 96, 104, 106, 108, 122, 126, 144, 154, 156, 158, 172, 188, 190, 192, 206, 210, 214, 228, 240, 242, 250, 258, 260, 262, 284, 286, 288, 290, 298, 300, 302, 318, 324, 328, 332, 340

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Maple

A075574:=proc(n) local i, j, k, t, s; j:=1; s:=1; t:=1; for i to n do k:=s; s:=nextprime(s+j); j:=s-k; t:=t, j; od; t; end; # Floor van Lamoen, Oct 21 2005

Mathematica

nxt[{ps_, a_}]:=Module[{c=a+2}, While[!PrimeQ[ps+c], c+=2]; {ps+c, c}]; Join[ {1}, NestList[nxt, {3, 2}, 60][[All, 2]]] (* Harvey P. Dale, Sep 19 2021 *)

Crossrefs

Cf. A073659, A073660.

Sequence in context: A370654 A213475 A325418 * A104692 A066755 A089238

Adjacent sequences: A075571 A075572 A075573 * A075575 A075576 A075577

Keyword

nonn

Author

Amarnath Murthy, Sep 25 2002

Extensions

More terms from David Wasserman, Jan 20 2005

Status

approved