




OFFSET

1,1


COMMENTS

a(7) is too large to display here. It has 206 digits and is the 722nd term in A001630.


LINKS

Table of n, a(n) for n=1..6.


MATHEMATICA

a={0, 0, 1, 2}; Print[2]; For[n=4, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[4]]=sum]


CROSSREFS

Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696, A141523, A235862,A214825, A235873, A001630, A241660.
Sequence in context: A238265 A203015 A260420 * A260071 A115031 A030418
Adjacent sequences: A241658 A241659 A241660 * A241662 A241663 A241664


KEYWORD

nonn


AUTHOR

Robert Price, Apr 26 2014


EXTENSIONS

a(1)=2 prepended and Mathematica program corrected by Robert Price, Sep 09 2014


STATUS

approved



