%I #8 Nov 25 2013 21:49:32
%S 2,2,3,7,41,467,859,8012003,168650767,
%T 17843905055671832482869722050793,2337143892123435886770270228393473,
%U 563028582965218666043722998152482699
%N Primes in the tribonacci sequence A100683.
%t a={-1,2,2}; Print[2]; 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.
%K nonn
%O 1,1
%A _Robert Price_, Nov 25 2013
|