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,2

Links

Table of n, a(n) for n=1..21.

Eric Weisstein's World of Mathematics, Bernoulli Number.

Mathematica

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

Prog

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

Crossrefs

Cf. A006863, A335117.

Sequence in context: A003272 A003245 A006863 * A052663 A192491 A167548

Adjacent sequences: A335125 A335126 A335127 * A335129 A335130 A335131

Keyword

nonn

Author

Seiichi Manyama, May 24 2020

Status

approved