A046946 Sin(n) decreases monotonically to 0.
1, 3, 44, 311, 377, 688, 710, 103638, 104703, 208341, 312689, 833719, 2292816, 3126535, 6565759, 9692294, 10838702, 74724506, 171126416, 245850922, 411557987, 1068966896, 2549491779, 6167950454, 14885392687
Offset: 0
References
- Suggested by a question from Alan Walker (Alan_Walker(AT)sabre.com)
Crossrefs
Cf. A046947.
Programs
-
Mathematica
z={}; current=1; Timing[ Do[ If[ If[ (t=Sin[ n ])>0, t, 1 ]
Wouter Meeussen *)
Extensions
More terms from Wouter Meeussen
Further terms from Michel ten Voorde
a(21)-a(24) from Giorgos Kalogeropoulos, Feb 21 2023
Comments