1,1

with(numtheory): [seq(nops(cfrac((1+90*(-1+100^k)/99)^(1/2), 'periodic', 'quotients')[2]), k=2..10)];

Do[Print[Length[Last[ContinuedFraction[(1+90*(-1+100^n)/99)^(1/2)]]]],

Cf. A095372, A096485.

Sequence in context: A084941 A139564 A001534 this_sequence A061492 A138783 A067637

Adjacent sequences: A096483 A096484 A096485 this_sequence A096487 A096488 A096489

more,nonn

Labos E. (labos(AT)ana.sote.hu), Jun 25 2004