|
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(7) is too large to display here. It has 206 digits and is the 722nd term in A001630.
|
|
LINKS
|
|
|
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.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
a(1)=2 prepended and Mathematica program corrected by Robert Price, Sep 09 2014
|
|
STATUS
|
approved
|
|
|
|