OFFSET
1,1
COMMENTS
a(6) is too large to appear here, having 124 digits. It corresponds to A214826(467).
MATHEMATICA
a={1, 4, 4}; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]
Select[LinearRecurrence[{1, 1, 1}, {1, 4, 4}, 400], PrimeQ] (* Harvey P. Dale, Mar 17 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, May 10 2014
STATUS
approved