This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A230607 #22 Jul 30 2015 10:53:41
%S A230607 2,2,5,173,1979,10035601,1314434453,15043078019,
%T A230607 75946890143515970461691,9947307490759622919990767,
%U A230607 33651500197152003774080593,113842209720657202395344053,577291982170349695261586984393,33503139717732963900675717496847941
%N A230607 Primes in the tribonacci-like sequence A214899.
%t A230607 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 A230607 Select[LinearRecurrence[{1,1,1},{2,1,2},300],PrimeQ] (* _Harvey P. Dale_, Jul 30 2015 *)
%Y A230607 Cf. A001590, A100683, A231574, A231575, A232543, A214899.
%K A230607 nonn
%O A230607 1,1
%A A230607 _Robert Price_, Dec 05 2013
%E A230607 More terms from _Harvey P. Dale_, Jul 30 2015