|
|
|
|
1, 24, 240, 504, 65520, 131040, 171864, 138181680, 6814407600, 20174525280, 45185409360, 558781423200, 685933859520, 2601256998740400, 4578654981700800, 15571124394460034400, 375159113055066740400, 124708934978441512498800, 127589793288205521873600, 8644416283014847832296800, 29217965124687229769336640
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|