A077097 Quotient cycle length in continued fraction expansion of sqrt(1+n^n).

1, 1, 4, 1, 30, 1, 32, 1, 1, 1, 20554, 1, 23522, 1, 1013500, 1, 29130218, 1, 3123943068, 1

Offset: 1

Author

Labos Elemer, Nov 05 2002

Keywords

• nonn
• more

Crossrefs

Cf. A003285, A077098.

Programs

Mathematica

Table[Length[Part[ContinuedFraction[Sqrt[1+u^u]], 2]], {u, 1, 15}]

Extensions

a(17)-a(18) from Daniel Suteu, Jan 25 2019

a(19)-a(20) from Vaclav Kotesovec, Aug 29 2019