%I #32 May 14 2022 12:06:00
%S 0,1,2,8,14,33,322,366,699,1409,2119,2829,3539,4249,4959,5669,6379,
%T 7089,7799,8509,9219,9929,10639,11349,12059,12769,13479,14189,14899,
%U 15609,16319,17029,17739,18449,19159,19869,20579,21289,21999,22709,23419,24129,24839
%N Numbers k where sin(k) increases monotonically to 1 (or cosec(k) decreases).
%C sin(37362253) = 0.9999999999999996492283960073698922883715161030254...
%H Hugo Pfoertner, <a href="/A046959/b046959.txt">Table of n, a(n) for n = 1..99</a> (first 88 terms from Robert G. Wilson v)
%t 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 *)
%t DeleteDuplicates[Table[{n,Sin[n]},{n,0,25000}],GreaterEqual[#1[[2]],#2[[2]]]&] [[All,1]] (* _Harvey P. Dale_, May 14 2022 *)
%Y Cf. A046964, A046965.
%K nonn
%O 1,3
%A _Olivier GĂ©rard_
|