A246295 Numbers k such that sin(k) < sin(k+1) < sin(k+2) > sin(k+3).

0, 6, 12, 18, 25, 31, 37, 44, 50, 56, 62, 69, 75, 81, 88, 94, 100, 106, 113, 119, 125, 132, 138, 144, 150, 157, 163, 169, 175, 182, 188, 194, 201, 207, 213, 219, 226, 232, 238, 245, 251, 257, 263, 270, 276, 282, 289, 295, 301, 307, 314, 320, 326, 333, 339

Offset: 1

Author

Clark Kimberling, Aug 21 2014

Keywords

• nonn
• easy

Comments

The sequences A246293, A246294, A246295, A246296 partition the nonnegative integers.

Numbers like 42, 86, 130, 199, 243, 287,.. are in none of these 4 sequences. - R. J. Mathar, May 18 2020

Links

• Clark Kimberling, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A246293, A246294, A246296, A026309 (complement of A246293).

Programs

Mathematica

z = 500; f[x_] := f[x] = Sin[x]; t = Range[0, z];
Select[t, f[#] > f[# + 1] &]  (* A246293 *)
Select[t, f[#] < f[# + 1] > f[# + 2] &]  (* A246294 *)
Select[t, f[#] < f[# + 1] < f[# + 2] > f[# + 3] &]  (* A246295 *)
Select[t, f[#] < f[# + 1] < f[# + 2] < f[# + 3] > f[# + 4] &] (* A246296 *)