OFFSET
1,2
FORMULA
Equals 1/A073824.
EXAMPLE
1.243288478399715644...
MATHEMATICA
A365052 = RealDigits[FromContinuedFraction[Range[1, 50]^2], 10, #][[1]]&;
PROG
(PARI)
p(N) = my(m=contfracpnqn(vector(N, i, i^2))); m[1, 1]/m[2, 1];
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)))};
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Rok Cestnik, Aug 18 2023
STATUS
approved