A244002 Prime terms in A214830.
17, 199, 2273, 547609, 71724269, 131339891338466303, 31640376596545867021, 2253137772896035203743
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
a={1,8,8}; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]
Comments