|
Search: id:A072977
|
|
|
| A072977 |
|
Increasing partial quotients of w=2*cos(pi/7). |
|
+0
1
|
|
| 1, 4, 20, 39, 94, 636, 699, 716, 904, 1374, 1824, 2457, 24007, 32164, 170306, 179545, 198107, 463343, 579913, 910774, 3758763
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
w satisfies w3 - w2 - 2w + 1 = 0 and so is algebraic.
|
|
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.
Adjacent sequences: A072974 A072975 A072976 this_sequence A072978 A072979 A072980
Sequence in context: A085805 A119413 A044446 this_sequence A163365 A145194 A164924
|
|
KEYWORD
|
cofr,nonn
|
|
AUTHOR
|
Alastair Rucklidge (A.M.Rucklidge(AT)leeds.ac.uk) and Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 13 2002
|
|
|
Search completed in 0.002 seconds
|
