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 A084406 #19 Jan 20 2024 17:10:16
%S A084406 2,3,7,8,14,16,18,20,40,42,44,53,134,154,185,187,191,197,200,201,230,
%T A084406 235,239,244,256,282,303,358,489,536,665,684,719,1098,1204,1400,1516,
%U A084406 1629,1903,1997,1999,2104,2477,3075,3676,3785,4115,5429,5808,6069,6276,9095
%N A084406 Numbers k such that k#*2^k-1 is prime, where k# = product of primes <= k.
%C A084406 The values corresponding to terms 1098 through 1516 have been proved to be prime.
%C A084406 No more terms < 10000. - _L. Joris Perrenet_, Mar 18 2020
%H A084406 The OpenPFGW Project, <a href="http://www.primeform.net/openpfgw/">Primality Tester</a>.
%t A084406 p = 1; Do[If[PrimeQ[n], p *= n]; If[PrimeQ[p*2^n - 1], Print[n]], {n, 2, 10000}] (* _Ryan Propper_, Sep 05 2005 *)
%t A084406 Select[Table[{k,Times@@Prime[Range[PrimePi[k]]]},{k,720}],PrimeQ[#[[2]]2^#[[1]]-1]&][[;;,1]] (* The program generates the first 33 terms of the sequence. *) (* _Harvey P. Dale_, Jan 20 2024 *)
%Y A084406 Cf. A034386.
%K A084406 nonn
%O A084406 1,1
%A A084406 _Jason Earls_, Jun 24 2003
%E A084406 More terms from _Ryan Propper_, Sep 05 2005
%E A084406 a(52) from _L. Joris Perrenet_, Mar 18 2020