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 A335128 #14 Feb 16 2025 08:34:00 %S A335128 1,24,240,504,65520,131040,171864,138181680,6814407600,20174525280, %T A335128 45185409360,558781423200,685933859520,2601256998740400, %U A335128 4578654981700800,15571124394460034400,375159113055066740400,124708934978441512498800,127589793288205521873600,8644416283014847832296800,29217965124687229769336640 %N A335128 Records in A006863. %H A335128 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BernoulliNumber.html">Bernoulli Number</a>. %t A335128 d[0] = 1; d[n_] := Denominator[BernoulliB[2*n]/(4*n)]; Union @ FoldList[Max, Array[d, 500, 0]] (* _Amiram Eldar_, May 03 2021 *) %o A335128 (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 A335128 Cf. A006863, A335117. %K A335128 nonn %O A335128 1,2 %A A335128 _Seiichi Manyama_, May 24 2020