

A232498


Primes in the tribonaccilike sequence, A020992.


29




OFFSET

1,1


LINKS



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]


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



