|
|
A246388
|
|
Nonnegative integers k satisfying sin(k) >= 0 and sin(k+1) <= 0.
|
|
5
|
|
|
3, 9, 15, 21, 28, 34, 40, 47, 53, 59, 65, 72, 78, 84, 91, 97, 103, 109, 116, 122, 128, 135, 141, 147, 153, 160, 166, 172, 179, 185, 191, 197, 204, 210, 216, 223, 229, 235, 241, 248, 254, 260, 267, 273, 279, 285, 292, 298, 304, 311, 317, 323, 329, 336, 342
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
z = 400; f[x_] := Sin[x]
Select[Range[0, z], f[#]*f[# + 1] <= 0 &] (* A022844 *)
Select[Range[0, z], f[#] >= 0 && f[# + 1] <= 0 &] (* A246388 *)
Select[Range[0, z], f[#] <= 0 && f[# + 1] >= 0 &] (* A038130 *)
Select[Range[0, z], f[#]*f[# + 1] > 0 &] (* A054386 *)
Select[Range[0, z], f[#] >= 0 && f[# + 1] >= 0 &] (* A246389 *)
Select[Range[0, z], f[#] <= 0 && f[# + 1] <= 0 &] (* A246390 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|