OFFSET
1,3
COMMENTS
The corresponding record values are in A362286.
MATHEMATICA
seq[kmax_] := Module[{s = {}, mx = 0, m}, Do[m = Length[ContinuedFraction[ Abs[BernoulliB[2*k]]]]; If[m > mx, mx = m; AppendTo[s, k]], {k, 0, kmax}]; s]; seq[1000]
PROG
(PARI) lista(kmax) = {my(mx = 0, m); for(k = 0, kmax, m = #contfrac(abs(bernfrac(2*k))); if(m > mx, mx = m; print1(k, ", "))); }
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Apr 14 2023
STATUS
approved