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

Author

Amarnath Murthy, Sep 25 2002

Keywords

• nonn

Links

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

Crossrefs

Cf. A073659, A073660.

Programs

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

Extensions

More terms from David Wasserman, Jan 20 2005