|
|
A046955
|
|
Numbers k such that sec(k) decreases monotonically to 1 (or cos(k) increases to 1).
|
|
5
|
|
|
1, 6, 19, 25, 44, 333, 710, 103993, 312689, 1980127, 2292816, 4272943, 10838702, 80143857, 411557987, 2137933792, 2549491779, 12335900908, 14885392687, 42106686282, 1783366216531, 8958937768937, 279510437053578, 288469374822515, 567979811876093
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|