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 A059747 #29 Sep 27 2024 14:26:26
%S A059747 2,3,4,5,8,12,15,17,20,21,45,48,87,97,113,120,172,217,228,276,312,580,
%T A059747 692,1132,1588,1668,2576,2591,3780,4311,4412,6205,11952,19897,19941,
%U A059747 20525,22821,44757,62833,110437,124113
%N A059747 Numbers k such that 3*2^k - 7 is prime.
%C A059747 Next term > 12000. - _Vincenzo Librandi_, Sep 29 2012
%t A059747 Do[ If[ PrimeQ[ 3*2^n - 7 ], Print[n] ], {n, 3000} ]
%t A059747 Select[Range[6500], PrimeQ[(3*2^# - 7)] &] (* _Vincenzo Librandi_, Sep 29 2012 *)
%o A059747 (PARI) is(n)=ispseudoprime(3*2^n-7) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y A059747 Cf. A059746.
%K A059747 nonn,more
%O A059747 1,1
%A A059747 _Robert G. Wilson v_, Feb 10 2001
%E A059747 a(29)-a(32) from _Vincenzo Librandi_, Sep 29 2012
%E A059747 a(33) from _Bruno Berselli_, Sep 30 2012
%E A059747 a(34)-a(39) from _Michael S. Branicky_, May 01 2023
%E A059747 a(40)-a(41) from _Michael S. Branicky_, Sep 27 2024