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 A300010 #22 Oct 09 2024 07:39:02
%S A300010 1,3,65,123,435,465,677,947,4215,5615,69749
%N A300010 Numbers k such that 3^k + k - 1 is a prime.
%C A300010 Corresponding primes: 3, 29, 10301051460877537453973547267907, 48519278097689642681155855396759336072749841943521979872949, ...
%C A300010 a(12), if it exists, is greater than 100000. - _Michael S. Branicky_, Oct 09 2024
%p A300010 select(k->isprime(3^k+k-1),[$1..1000]); # _Muniru A Asiru_, Apr 05 2018
%t A300010 Flatten[{Select[Range[6000], PrimeQ[3^# + # - 1] &]}]
%o A300010 (Magma) [k: k in [1..700] | IsPrime(3^k+k-1)];
%o A300010 (PARI) lista(nn) = forstep(n=1, nn, 2, if(ispseudoprime(3^n + n - 1), print1(n, ", "))); \\ _Altug Alkan_, Apr 01 2018
%Y A300010 Cf. A173063, A301632.
%K A300010 nonn,more
%O A300010 1,2
%A A300010 _Vincenzo Librandi_, Apr 01 2018
%E A300010 a(11) from _Michael S. Branicky_, Oct 08 2024