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 A362286 #8 Apr 14 2023 03:46:44
%S A362286 1,2,3,6,7,10,17,23,33,39,42,46,49,54,55,57,66,73,78,83,85,95,100,105,
%T A362286 118,133,157,162,183,201,220,224,234,242,262,272,273,287,309,314,366
%N A362286 Record values in A138705.
%C A362286 The corresponding indices of records are in A362285.
%F A362286 a(n) = A138705(A362285(n)).
%t A362286 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]
%o A362286 (PARI) lista(kmax) = {my(mx = 0, m); for(k = 0, kmax, m = #contfrac(abs(bernfrac(2*k))); if(m > mx, mx = m; print1(m,", "))); }
%Y A362286 Cf. A000367, A002445, A027641, A027642, A100195, A138705, A362284, A362285.
%K A362286 nonn,more
%O A362286 1,2
%A A362286 _Amiram Eldar_, Apr 14 2023