%I #24 Feb 22 2023 02:06:14
%S 1,3,44,311,377,688,710,103638,104703,208341,312689,833719,2292816,
%T 3126535,6565759,9692294,10838702,74724506,171126416,245850922,
%U 411557987,1068966896,2549491779,6167950454,14885392687
%N Sin(n) decreases monotonically to 0.
%C Conjecture: Next terms are 21053343141, 1783366216531, 3587785776203, 148714156295726, 279510437053578. - _Giorgos Kalogeropoulos_, Feb 21 2023
%D Suggested by a question from Alan Walker (Alan_Walker(AT)sabre.com)
%t z={}; current=1; Timing[ Do[ If[ If[ (t=Sin[ n ])>0, t, 1 ]<current, AppendTo[ z, current=t ] ], {n, 105000 } ] ]; z (* _Wouter Meeussen_ *)
%Y Cf. A046947.
%K nonn,nice,more
%O 0,2
%A _N. J. A. Sloane_
%E More terms from _Wouter Meeussen_
%E Further terms from _Michel ten Voorde_
%E a(21)-a(24) from _Giorgos Kalogeropoulos_, Feb 21 2023
|