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 A091997 #11 Feb 16 2025 08:32:52
%S A091997 1,2,3,4,5,7,8,12,19,35,39,44,56,65,77,95,104,144,207,217,307,325,392,
%T A091997 459,471,828,1275,3277,4205,5135,7560,12677,14899,18124,18820,25691,
%U A091997 26460,41629,51388,71784,80331,85688,88172,97064,123631,155931,164988,234761,414841
%N A091997 Numbers n such that 3*2^(n-1) - 1 is prime.
%H A091997 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/ThabitibnKurrahRule.html">Thabit ibn Kurrah's rules</a>
%F A091997 a(n) = A002235(n) + 1. - _Jinyuan Wang_, Jan 30 2020
%e A091997 3*2^(3-1) - 1 = 11 so a(1) = 3.
%t A091997 Do[If[PrimeQ[3*2^(n - 1) - 1], Print[n]], {n, 1, 8000}] (* Mohammed Bouayoun (Mohammed.Bouayoun(AT)yahoo.fr), Apr 13 2006 *)
%o A091997 (PARI) for (i=1,1000,if(isprime(3*2^(i-1)-1),print1(i,",")))
%Y A091997 Cf. A002235.
%K A091997 nonn
%O A091997 1,2
%A A091997 Mohammed Bouayoun (bouyao(AT)wanadoo.fr), Mar 17 2004
%E A091997 More terms from Mohammed Bouayoun (Mohammed.Bouayoun(AT)yahoo.fr), Apr 13 2006
%E A091997 More terms from _Jinyuan Wang_, Jan 30 2020