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 A234703 #7 Feb 22 2023 16:29:48 %S A234703 2,2,5,101,13241,151537,66848890001808737, %T A234703 8602289657912317933269334679427588251509673524841616601 %N A234703 Primes in the tribonacci-like sequence, A214727. %C A234703 The next term (a(9)) has 97 digits. - _Harvey P. Dale_, Feb 22 2023 %t A234703 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] %t A234703 Select[LinearRecurrence[{1,1,1},{1,2,2},500],PrimeQ] (* _Harvey P. Dale_, Feb 22 2023 *) %Y A234703 Cf. A001590, A100683, A231574, A231575, A232543, A214899, A020992, A233554. A214727, A234696. %K A234703 nonn %O A234703 1,1 %A A234703 _Robert Price_, Dec 29 2013