A046959 Numbers k where sin(k) increases monotonically to 1 (or cosec(k) decreases).

0, 1, 2, 8, 14, 33, 322, 366, 699, 1409, 2119, 2829, 3539, 4249, 4959, 5669, 6379, 7089, 7799, 8509, 9219, 9929, 10639, 11349, 12059, 12769, 13479, 14189, 14899, 15609, 16319, 17029, 17739, 18449, 19159, 19869, 20579, 21289, 21999, 22709, 23419, 24129, 24839

Offset: 1

Author

Olivier Gérard

Keywords

• nonn

Comments

sin(37362253) = 0.9999999999999996492283960073698922883715161030254...

Links

• Hugo Pfoertner, Table of n, a(n) for n = 1..99 (first 88 terms from Robert G. Wilson v)

Crossrefs

Cf. A046964, A046965.

Programs

Mathematica

d = -1; lst = {}; Do[a = Sin@n; If[a > d, d = a; Print@n; AppendTo[lst, n]], {n, 0, 111111111}]; lst (* Robert G. Wilson v, Aug 24 2007 *)
DeleteDuplicates[Table[{n,Sin[n]},{n,0,25000}],GreaterEqual[#1[[2]],#2[[2]]]&] [[All,1]] (* Harvey P. Dale, May 14 2022 *)