OFFSET
1,2
COMMENTS
Also numerators of convergents to 2*Pi. - Vladeta Jovovic, Nov 09 2004
EXAMPLE
cos(411557987) = 0.999999999999999996782535835854909099962858791940...
MATHEMATICA
a = 0; Do[ If[ Cos[n] > a, Print[n]; a = Cos[n]], {n, 1, 421000000}] (* Robert G. Wilson v, Dec 29 2003 *)
b = 10; Do[ If[ Abs[ Mod[n + Pi/2, 2Pi] - Pi/2] < b, Print[n]; b = Abs[ Mod[n + Pi/2, 2Pi] - Pi/2]], {n, 1, 421000000}] (* Robert G. Wilson v, Dec 29 2003 *)
Join[{1}, Numerator[Convergents[2Pi, 33]]] (* Stéphane Mottelet, Oct 12 2011 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
EXTENSIONS
More terms from Michel ten Voorde
One more term from Vladeta Jovovic, Apr 03 2000
8 more terms from Vladeta Jovovic, Nov 09 2004
More terms from Stéphane Mottelet, Oct 12 2011
Definition corrected by N. J. A. Sloane, Mar 16 2018 following a suggestion from Allan C. Wechsler.
STATUS
approved