|
|
A246393
|
|
Nonnegative integers k satisfying cos(k) >= 0 and cos(k+1) <= 0.
|
|
4
|
|
|
1, 7, 14, 20, 26, 32, 39, 45, 51, 58, 64, 70, 76, 83, 89, 95, 102, 108, 114, 120, 127, 133, 139, 146, 152, 158, 164, 171, 177, 183, 190, 196, 202, 208, 215, 221, 227, 234, 240, 246, 252, 259, 265, 271, 278, 284, 290, 296, 303, 309, 315, 322, 328, 334, 340
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
z = 400; f[x_] := Cos[x]
Select[Range[0, z], f[#]*f[# + 1] <= 0 &] (* A062389 *)
Select[Range[0, z], f[#] >= 0 && f[# + 1] <= 0 &] (* A246393 *)
Select[Range[0, z], f[#] <= 0 && f[# + 1] >= 0 &] (* A246394 *)
Select[Range[0, z], f[#]*f[# + 1] > 0 &] (* A246046 *)
Select[Range[0, z], f[#] >= 0 && f[# + 1] >= 0 &] (* A246395 *)
Select[Range[0, z], f[#] <= 0 && f[# + 1] <= 0 &] (* A246396 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|