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 A365052 #21 Aug 20 2023 10:48:25
%S A365052 1,2,4,3,2,8,8,4,7,8,3,9,9,7,1,5,6,4,4,0,8,2,4,9,6,5,4,5,3,9,4,4,2,9,
%T A365052 4,9,9,2,3,1,2,0,0,2,6,1,1,9,7,4,4,6,8,8,5,0,6,6,4,9,7,4,5,9,8,8,1,6,
%U A365052 3,0,3,2,2,3,3,8,2,5,3,4,2,1,4,5,9,6,4,9,8,1,5,6,1,2,1,8,5,5,9,5
%N A365052 Decimal expansion of continued fraction [1; 4, 9, 16, 25, ... n^2, ... ].
%F A365052 Equals 1/A073824.
%e A365052 1.243288478399715644...
%t A365052 A365052 = RealDigits[FromContinuedFraction[Range[1,50]^2],10,#][[1]]&;
%o A365052 (PARI)
%o A365052 p(N) = my(m=contfracpnqn(vector(N, i, i^2))); m[1,1]/m[2,1];
%o A365052 A365052(N) = {my(t=2); while(floor(10^N*p(t)) != floor(10^N*p(t+1)), t++); digits(floor(10^(N-1)*p(t)))};
%Y A365052 Cf. A073824 (reciprocal), A036246/A036245 (convergents).
%Y A365052 Cf. A226771, A060997, A052119.
%K A365052 nonn,cons
%O A365052 1,2
%A A365052 _Rok Cestnik_, Aug 18 2023