A362286 Record values in A138705.

1, 2, 3, 6, 7, 10, 17, 23, 33, 39, 42, 46, 49, 54, 55, 57, 66, 73, 78, 83, 85, 95, 100, 105, 118, 133, 157, 162, 183, 201, 220, 224, 234, 242, 262, 272, 273, 287, 309, 314, 366

Offset

1,2

Comments

The corresponding indices of records are in A362285.

Links

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

Formula

a(n) = A138705(A362285(n)).

Mathematica

seq[kmax_] := Module[{s = {}, mx = 0, m}, Do[m = Length[ContinuedFraction[ Abs[BernoulliB[2*k]]]]; If[m > mx, mx = m; AppendTo[s, m]], {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(m, ", "))); }

Crossrefs

Cf. A000367, A002445, A027641, A027642, A100195, A138705, A362284, A362285.

Sequence in context: A058632 A086583 A107852 * A050031 A003421 A375738

Adjacent sequences: A362283 A362284 A362285 * A362287 A362288 A362289

Keyword

nonn,more

Author

Amiram Eldar, Apr 14 2023

Status

approved