|
%I #22 Jul 30 2015 10:53:41
%S 2,2,5,173,1979,10035601,1314434453,15043078019,
%T 75946890143515970461691,9947307490759622919990767,
%U 33651500197152003774080593,113842209720657202395344053,577291982170349695261586984393,33503139717732963900675717496847941
%N Primes in the tribonacci-like sequence A214899.
%t a={2,1,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]
%t Select[LinearRecurrence[{1,1,1},{2,1,2},300],PrimeQ] (* _Harvey P. Dale_, Jul 30 2015 *)
%Y Cf. A001590, A100683, A231574, A231575, A232543, A214899.
%K nonn
%O 1,1
%A _Robert Price_, Dec 05 2013
%E More terms from _Harvey P. Dale_, Jul 30 2015
|
