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 A146344 #12 Apr 02 2020 03:07:22
%S A146344 0,2,4,6,8,10,12,18,20,26,34,42,48,50,52,54,60,66,72,76,80,84,94,96,
%T A146344 102,104,114,122,126,130,140,148,152,156,158,178,190,192,196,202,204,
%U A146344 206,210,228,234,248,258,268,276,294,322,332,348,352,374,376,380,398
%N A146344 Records in A146326.
%H A146344 Amiram Eldar, <a href="/A146344/b146344.txt">Table of n, a(n) for n = 1..416</a>
%F A146344 a(n) = A146326(A146345(n)). - _Amiram Eldar_, Apr 02 2020
%p A146344 146326 := proc(n) if not issqr(n) then numtheory[cfrac]( (1+sqrt(n))/2, 'periodic','quotients') ; nops(%[2]) ; else 0 ; fi; end: read("transforms") ; a26 := [seq(A146326(n),n=1..1000)] ; RECORDS(a26)[1] ; # _R. J. Mathar_, Sep 06 2009
%t A146344 f[n_] := Length @ ContinuedFraction[(1 + Sqrt[n])/2][[-1]]; fmax = -1; seq = {}; Do[f1 = f[n]; If[f1 > fmax, fmax = f1; AppendTo[seq, f1]], {n, 1, 10^4}]; seq (* _Amiram Eldar_, Apr 02 2020 *)
%Y A146344 Cf. A000290, A078370, A146326-A146345, A146348-A146360, A146363.
%K A146344 nonn
%O A146344 1,2
%A A146344 _Artur Jasinski_, Oct 30 2008
%E A146344 42 inserted by _R. J. Mathar_, Sep 06 2009
%E A146344 a(1) inserted and more terms added by _Amiram Eldar_, Apr 02 2020