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 A002444 M4191 N1747 #48 Mar 08 2023 03:41:07
%S A002444 1,6,30,84,90,132,5460,360,1530,7980,13860,8280,81900,1512,3480,
%T A002444 114576,117810,1260,3838380,32760,568260,1191960,869400,236880,
%U A002444 9746100,525096,629640,351120,198360,42480,1362881520,4324320,1093950,33008220,434700,843480,46233287100,102702600,1081080
%N A002444 Denominator in Feinler's formula for unsigned Bernoulli number |B_{2n}|.
%C A002444 A002443/A002444 = |B_{2n}| (see also A000367/A002445).
%D A002444 H. T. Davis, Tables of the Mathematical Functions. Vols. 1 and 2, 2nd ed., 1963, Vol. 3 (with V. J. Fisher), 1962; Principia Press of Trinity Univ., San Antonio, TX, Vol. 2, p. 208.
%D A002444 N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D A002444 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H A002444 H. T. Davis, <a href="/A002443/a002443.pdf">Tables of the Mathematical Functions</a>, Vols. 1 and 2, 2nd ed., 1963, Vol. 3 (with V. J. Fisher), 1962; Principia Press of Trinity Univ., San Antonio, TX. [Annotated scan of pages 204-208 of Volume 2.]
%H A002444 Milan Janjic, <a href="http://www.pmfbl.org/janjic/">Enumerative Formulas for Some Functions on Finite Sets</a>
%H A002444 <a href="/index/Be#Bernoulli">Index entries for sequences related to Bernoulli numbers.</a>
%F A002444 Let p_i denote the i-th prime, and let V(n,i) = floor(n/(prime(i)-1)) = A266742(n,i).
%F A002444 Then a(n) = (Prod_i (p_i)^V(n,i))/n!.
%F A002444 (See Davis, Vol. 2, p. 206, first displayed equation, where a(n) appears as d_{2k}.)
%p A002444 with(numtheory);
%p A002444 g:=proc(m) local i,n; n:=2*m;
%p A002444 mul(ithprime(i)^floor(n/(ithprime(i)-1)),i=1..pi(n+1));
%p A002444 %/n!;
%p A002444 end;
%p A002444 [seq(g(m),m=0..40)]; # _N. J. A. Sloane_, Jan 08 2016
%t A002444 a[n_] := Product[Prime[i]^Floor[2n/(Prime[i]-1)], {i, 1, PrimePi[2n+1]}]/(2n)!;
%t A002444 Table[a[n], {n, 0, 40}] (* _Jean-François Alcover_, Mar 08 2023 *)
%Y A002444 Cf. A002443, A000367, A002445, A266742, A266743, A266911.
%K A002444 nonn,frac
%O A002444 0,2
%A A002444 _N. J. A. Sloane_
%E A002444 Name amended upon suggestion by _T. D. Noe_, by _M. F. Hasler_, Jan 05 2016
%E A002444 Edited with new definition, more terms, and scan of source by _N. J. A. Sloane_, Jan 08 2016