A096486 Period length of continued fraction for square root of A095372(n)=1+90*(-1+100^n)/99.
8, 170, 2242, 2132, 1294, 976846, 216566, 9904144, 25617930, 408928520, 25346031262, 137031675878, 89950978114
Offset: 1
Programs
-
Maple
with(numtheory): [seq(nops(cfrac((1+90*(-1+100^k)/99)^(1/2), 'periodic', 'quotients')[2]), k=2..10)];
-
Mathematica
Do[Print[Length[Last[ContinuedFraction[(1+90*(-1+100^n)/99)^(1/2)]]]], {n, 1, 9}]
Extensions
a(10) from Vaclav Kotesovec, Aug 29 2019
a(11)-a(12) from Chai Wah Wu, Dec 07 2019
a(13) from Chai Wah Wu, Oct 01 2021