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 A235873 #5 Jan 16 2014 15:00:43 %S A235873 3,5,7,13,83,281,3217,10883,1425427,55187617,24453221203, %T A235873 124001884480009,29872617402415741,185875267730565697, %U A235873 341877918058715653,44580781450601596678810171573,36012536557658790037420884825332617431175065740791 %N A235873 Primes in the tribonacci-like sequence, A141523. %t A235873 a={3,1,1}; Print[3]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[sum]]; a=RotateLeft[a]; a[[3]]=sum] %Y A235873 Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696, A141523, A235862. %K A235873 nonn %O A235873 1,1 %A A235873 _Robert Price_, Jan 16 2014