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,3

Comments

The corresponding record values are in A362286.

Links

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

Formula

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

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

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

Sequence in context: A129318 A054378 A129319 * A024570 A365553 A134077

Adjacent sequences: A362282 A362283 A362284 * A362286 A362287 A362288

Keyword

nonn,more

Author

Amiram Eldar, Apr 14 2023

Status

approved