A046964 Sin(n) decreases monotonically to -1.

1, 3, 4, 5, 11, 344, 1054, 1764, 2474, 3184, 3894, 4604, 5314, 6024, 6734, 7444, 8154, 8864, 9574, 10284, 10994, 11704, 12414, 13124, 13834, 14544, 15254, 15964, 16674, 17384, 18094, 18804, 19514, 20224, 20934, 21644, 22354, 23064, 23774, 24484, 25194, 25904

Offset

1,2

Comments

Sin(10265498) =-0.9999999999999999313932793053103935998520142594607...

Links

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

Mathematica

z={}; current=1; Timing[ Do[ If[ Sin[ n ]<current, AppendTo[ z, current=Sin[ n ] ] ], {n, 30000} ] ]; z
d = 1; lst = {}; Do[a = Sin@n; If[a > d, d = a; Print@n; AppendTo[lst, n]], {n, 111111111}]; lst (* Robert G. Wilson v, Aug 24 2007 *)

Prog

(PARI) d=oo; print1("1, 3, "); for(k=1, 10^8, my(di=2*k/Pi, dir=round(di), dd); if(dir%4==3, dd=abs(di-dir); if(dd<d, print1(k, ", "); d=dd))) \\ Hugo Pfoertner, Feb 29 2020

Crossrefs

Cf. A046959, A046965.

Sequence in context: A052276 A173096 A302752 * A296966 A235598 A191197

Adjacent sequences: A046961 A046962 A046963 * A046965 A046966 A046967

Keyword

nonn

Author

Wouter Meeussen

Status

approved