OFFSET
1,1
COMMENTS
a(12) is too large to display here. It has 46 digits and is the 158th term in A123526.
MATHEMATICA
a={1, 1, 1, 1, 1, 1, 1, 1}; step=8; lst={}; For[n=step+1, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], AppendTo[lst, sum]]; a=RotateLeft[a]; a[[step]]=sum]; lst
Select[With[{lr=PadRight[{}, 8, 1]}, LinearRecurrence[lr, lr, 200]], PrimeQ] (* Harvey P. Dale, Dec 03 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Jan 30 2015
STATUS
approved