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 A104499 #44 Oct 23 2022 23:11:07
%S A104499 4,6,8,9,10,11,15,17,19,23,25,31,41,47,59,61,71,113,127,137,157,167,
%T A104499 223,401,443,457,503,523,619,701,859,991,1021,1187,1217,1223,1361,
%U A104499 1847,1867,2237,2579,2693,3313,4219,4931,4967,5413,7727,8011,8387,8761,11083,13781,16871,23311,28661,28871,29123
%N A104499 Primes by index in A001945.
%C A104499 All terms greater than a(11)=25 are prime so far.
%C A104499 a(80) > 10^6. - _Paul Vanderveen_, Oct 02 2022
%H A104499 Paul Vanderveen, <a href="/A104499/b104499.txt">Table of n, a(n) for n = 1..79</a>
%F A104499 A001945(a(n+1)) = A204138(n). [_Reinhard Zumkeller_, Jan 11 2012]
%t A104499 a[0] = 0; a[1] = a[2] = a[3] = a[5] = 1; a[4] = 5; a[n_] := a[n] = -a[n - 1] + a[n - 2] + 3a[n - 3] + a[n - 4] - a[n - 5] - a[n - 6]; lst = {}; Do[ If[ PrimeQ[a [ n]], AppendTo[lst, n]], {n, 21900}]; lst
%o A104499 (Haskell)
%o A104499 import Data.List (findIndices)
%o A104499 a104499 n = a104499_list !! (n-1)
%o A104499 a104499_list = findIndices ((== 1) . a010051) a001945_list
%o A104499 -- _Reinhard Zumkeller_, Jan 11 2012
%Y A104499 Cf. A001945.
%K A104499 nonn
%O A104499 1,1
%A A104499 _Robert G. Wilson v_, Mar 10 2005
%E A104499 a(50) and a(52) corrected and more terms from _Paul Vanderveen_, Jul 27 2022