%I A072977
%S A072977 1,4,20,39,94,636,699,716,904,1374,1824,2457,24007,32164,170306,179545,
%T A072977 198107,463343,579913,910774,3758763
%N A072977 Increasing partial quotients of w=2*cos(pi/7).
%C A072977 w satisfies w3 - w2 - 2w + 1 = 0 and so is algebraic.
%e A072977 w = 1.801937735804838252472204639014890102331838324263714300...
%t A072977 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}]
%Y A072977 Continued fraction: A039921.
%Y A072977 Sequence in context: A085805 A119413 A044446 this_sequence A163365 A145194 
               A164924
%Y A072977 Adjacent sequences: A072974 A072975 A072976 this_sequence A072978 A072979 
               A072980
%K A072977 cofr,nonn
%O A072977 1,2
%A A072977 Alastair Rucklidge (A.M.Rucklidge(AT)leeds.ac.uk) and Robert G. Wilson 
               v (rgwv(AT)rgwv.com), Aug 13 2002