A362285 Indices of records of A138705.

0, 1, 5, 6, 8, 18, 30, 36, 90, 180, 360, 420, 504, 540, 630, 810, 840, 1080, 1260, 1680, 1890, 2520, 3240, 3780, 4200, 5040, 7560, 10080, 12600, 21420, 30240, 32760, 37800, 42840, 50400, 60480, 64260, 65520, 83160, 98280, 128520

Offset: 1

Author

Amiram Eldar, Apr 14 2023

Keywords

• nonn
• more

Comments

The corresponding record values are in A362286.

Crossrefs

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

Programs

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]

PARI

lista(kmax) = {my(mx = 0, m); for(k = 0, kmax, m = #contfrac(abs(bernfrac(2*k))); if(m > mx, mx = m; print1(k,", "))); }

Formula

A138705(a(n)) = A362286(n).