login
Primes in the tribonacci-like sequence, A020992.
29

%I #20 Dec 12 2013 22:38:17

%S 2,3,19,4567,52267,325219,

%T 2967036956187340614662532876709507060271690954641131383

%N Primes in the tribonacci-like sequence, A020992.

%t 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]

%Y Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554.

%K nonn

%O 1,1

%A _Robert Price_, Dec 12 2013