This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A362285 #8 Apr 14 2023 03:46:33
%S A362285 0,1,5,6,8,18,30,36,90,180,360,420,504,540,630,810,840,1080,1260,1680,
%T A362285 1890,2520,3240,3780,4200,5040,7560,10080,12600,21420,30240,32760,
%U A362285 37800,42840,50400,60480,64260,65520,83160,98280,128520
%N A362285 Indices of records of A138705.
%C A362285 The corresponding record values are in A362286.
%F A362285 A138705(a(n)) = A362286(n).
%t A362285 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]
%o A362285 (PARI) lista(kmax) = {my(mx = 0, m); for(k = 0, kmax, m = #contfrac(abs(bernfrac(2*k))); if(m > mx, mx = m; print1(k,", "))); }
%Y A362285 Cf. A000367, A002445, A027641, A027642, A100195, A138705, A362284, A362286.
%K A362285 nonn,more
%O A362285 1,3
%A A362285 _Amiram Eldar_, Apr 14 2023