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 A175404 #17 Aug 01 2024 09:12:59
%S A175404 1,2,3,4,8,9,28,33,38,808,1642,13288,20434,29001,57374,121858
%N A175404 Numbers k with property that k + Fibonacci(k) is prime.
%C A175404 Next term > 49000. - _Robert G. Wilson v_, Jun 12 2010
%t A175404 fQ[n_] := PrimeQ[ Fibonacci@n + n]; lst = {}; k = 1; While[k < 50001, If[fQ@k, AppendTo[lst, k]; Print@k]; k++ ]; lst (* _Robert G. Wilson v_, Jun 12 2010 *)
%t A175404 Select[Range[2000],PrimeQ[#+Fibonacci[#]]&] (* The program generates the first 11 terms of the sequence. *) (* _Harvey P. Dale_, Mar 21 2024 *)
%o A175404 (PARI) isok(n) = isprime(n + fibonacci(n)); \\ _Michel Marcus_, Mar 30 2016
%Y A175404 Cf. A000045 = Fibonacci(n), A069108 = Primes of the form k + Fibonacci(k).
%K A175404 nonn,more
%O A175404 1,2
%A A175404 _Zak Seidov_, May 01 2010
%E A175404 a(12)-a(14) from _Robert G. Wilson v_, Jun 12 2010
%E A175404 a(15)-a(16) from _Michael S. Branicky_, Aug 01 2024