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