A369275 Nonnegative numbers k satisfying sin(k) < sin(k+1) < sin(k+2) < sin(k+3) < sin(k+4).
42, 86, 130, 199, 243, 287, 331, 375, 419, 463, 507, 532, 576, 620, 664, 708, 752, 796, 840, 909, 953, 997, 1041, 1085, 1129, 1173, 1217, 1242, 1286, 1330, 1374, 1418, 1462, 1506, 1550, 1619, 1663, 1707, 1751, 1795, 1839, 1883, 1927, 1952, 1996, 2040, 2084, 2128, 2172, 2216, 2260, 2329
Offset: 1
Links
- David A. Corneth, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[0,2350], Sin[#]
James C. McMahon, Jan 20 2024 *) Flatten[Position[Partition[Sin[Range[2500]],5,1],?(Min[Differences[#]]>0&)]]//Quiet (* _Harvey P. Dale, Dec 10 2024 *) -
PARI
first(n) = { my(res = List(), streak = 1, s = sin(1)); for(i = 2, oo, c = sin(i); if(c > s, streak++; if(streak >= 5, listput(res, i-4); if(#res >= n, return(res))); , streak = 1); s = c); res} \\ David A. Corneth, Dec 11 2024
Formula
a(n) ~ k*n where k = 2*Pi/(Pi - 3) = 44.375... by the Equidistribution Theorem. - Charles R Greathouse IV, Dec 10 2024
Comments