A242316 Prime terms in the tribonacci-like sequence A214826.
17, 103, 1764391, 8907752079422393063, 28959877095025359725108610631647478770525190687597954707985655095645523042346644747326776183477265033
Offset: 1
Keywords
Crossrefs
Programs
-
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 *)
Comments