A246296 -id:A246296 - cp's OEIS frontend

A246293 Numbers k such that sin(k) > sin(k+1).

2, 3, 4, 8, 9, 10, 14, 15, 16, 20, 21, 22, 23, 27, 28, 29, 33, 34, 35, 39, 40, 41, 46, 47, 48, 52, 53, 54, 58, 59, 60, 64, 65, 66, 67, 71, 72, 73, 77, 78, 79, 83, 84, 85, 90, 91, 92, 96, 97, 98, 102, 103, 104, 108, 109, 110, 111, 115, 116, 117, 121, 122, 123

Offset: 1

Clark Kimberling, Aug 21 2014

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

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

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

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 *)
Position[Partition[Sin[Range[130]],2,1],?(#[[1]]>#[[2]]&),{1},Heads-> False]//Flatten (* _Harvey P. Dale, Sep 18 2016 *)

is(n)=sin(n)>sin(n+1) \\ Charles R Greathouse IV, Aug 03 2017

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

Original entry on oeis.org

1, 7, 13, 19, 26, 32, 38, 45, 51, 57, 63, 70, 76, 82, 89, 95, 101, 107, 114, 120, 126, 133, 139, 145, 151, 158, 164, 170, 176, 183, 189, 195, 202, 208, 214, 220, 227, 233, 239, 246, 252, 258, 264, 271, 277, 283, 290, 296, 302, 308, 315, 321, 327, 334, 340

Offset: 1

Clark Kimberling, Aug 21 2014

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

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

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

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 *)
Position[Partition[Sin[Range[350]],3,1],?(#[[1]]<#[[2]]>#[[3]]&),1,Heads-> False]//Flatten (* _Harvey P. Dale, Aug 03 2017 *)

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

Original entry on oeis.org

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

Clark Kimberling, Aug 21 2014

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

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

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

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 *)

cp's OEIS Frontend

A246293 Numbers k such that sin(k) > sin(k+1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica