A335128 Records in A006863.

1, 24, 240, 504, 65520, 131040, 171864, 138181680, 6814407600, 20174525280, 45185409360, 558781423200, 685933859520, 2601256998740400, 4578654981700800, 15571124394460034400, 375159113055066740400, 124708934978441512498800, 127589793288205521873600, 8644416283014847832296800, 29217965124687229769336640

Offset: 1

Author

Seiichi Manyama, May 24 2020

Keywords

• nonn

Links

• Eric Weisstein's World of Mathematics, Bernoulli Number.

Crossrefs

Cf. A006863, A335117.

Programs

Mathematica

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

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", ")))