A232498 Primes in the tribonacci-like sequence, A020992.
2, 3, 19, 4567, 52267, 325219, 2967036956187340614662532876709507060271690954641131383
Offset: 1
Keywords
Programs
-
Mathematica
a={0,2,1}; Print[2] For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum]