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 A230017 #9 Feb 23 2014 02:15:40 %S A230017 3,3,7,13,23,43,79,491,19009,34963,8422747,326099713, %T A230017 3699221592878859104602113553,77867739062209443974741001359, %U A230017 63460200981504216633346603450897,174962190954783387911511685367053207 %N A230017 Prime terms in the tribonacci-like sequence, A214825. %t A230017 a={1,3,3}; Print[3]; Print[3]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum] %Y A230017 Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696, A141523, A235862,A214825, A235873. %K A230017 nonn %O A230017 1,1 %A A230017 _Robert Price_, Feb 22 2014