login
Records in A006863.
1

%I #13 May 03 2021 02:13:14

%S 1,24,240,504,65520,131040,171864,138181680,6814407600,20174525280,

%T 45185409360,558781423200,685933859520,2601256998740400,

%U 4578654981700800,15571124394460034400,375159113055066740400,124708934978441512498800,127589793288205521873600,8644416283014847832296800,29217965124687229769336640

%N Records in A006863.

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BernoulliNumber.html">Bernoulli Number</a>.

%t d[0] = 1; d[n_] := Denominator[BernoulliB[2*n]/(4*n)]; Union @ FoldList[Max, Array[d, 500, 0]] (* _Amiram Eldar_, May 03 2021 *)

%o (PARI) s=0; for(k=0, 1e3, t=if(k==0, 1, denominator(bernfrac(2*k)/(-4*k))); if(t>s, s=t; print1(s", ")))

%Y Cf. A006863, A335117.

%K nonn

%O 1,2

%A _Seiichi Manyama_, May 24 2020