|
%I #9 Oct 04 2013 03:23:26
%S 1,4,20,39,94,636,699,716,904,1374,1824,2457,24007,32164,170306,
%T 179545,198107,463343,579913,910774,3758763,3896343,5800335,11314629,
%U 13245450,14422622,62449915
%N Increasing partial quotients of w=2*cos(Pi/7).
%C w satisfies w3 - w2 - 2w + 1 = 0 and so is algebraic.
%e w = 1.801937735804838252472204639014890102331838324263714300...
%t 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 Continued fraction: A039921.
%K cofr,nonn
%O 1,2
%A Alastair Rucklidge (A.M.Rucklidge(AT)leeds.ac.uk) and _Robert G. Wilson v_, Aug 13 2002
%E a(22)-a(27) from _Robert G. Wilson v_, Jun 12 2013.
|
