A072977 Increasing partial quotients of w = 2*cos(Pi/7).

1, 4, 20, 39, 94, 636, 699, 716, 904, 1374, 1824, 2457, 24007, 32164, 170306, 179545, 198107, 463343, 579913, 910774, 3758763, 3896343, 5800335, 11314629, 13245450, 14422622, 62449915

Offset

1,2

Comments

w satisfies w3 - w2 - 2w + 1 = 0 and so is algebraic.

Links

Table of n, a(n) for n=1..27.

Example

w = 1.801937735804838252472204639014890102331838324263714300...

Mathematica

a = ContinuedFraction[2*Cos[Pi/7], 10^6]; b = 0; Do[ If[a[[n]] > b, b = a[[n]]; Print[b]], {n, 1, 10^6 - 1}]

Crossrefs

Continued fraction: A039921.

Sequence in context: A044446 A232221 A323183 * A341895 A163365 A145194

Adjacent sequences: A072974 A072975 A072976 * A072978 A072979 A072980

Keyword

nonn,more

Author

Alastair Rucklidge (A.M.Rucklidge(AT)leeds.ac.uk) and Robert G. Wilson v, Aug 13 2002

Extensions

a(22)-a(27) from Robert G. Wilson v, Jun 12 2013.

Status

approved