login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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

A246393 and A246394 partition A062389 (the nonhomogeneous Beatty sequence  {floor(-1/2)*Pi)}.  Likewise, A246046, the complement of A062389, is partitioned by A246395 and A246396.  (See the Mathematica program.)

LINKS

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

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

Cf. A062389, A246394, A246046, A246395, A246396, A246388.

Sequence in context: A035404 A003863 A133249 * A246305 A308015 A339950

Adjacent sequences:  A246390 A246391 A246392 * A246394 A246395 A246396

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Aug 24 2014

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 24 13:43 EDT 2021. Contains 348232 sequences. (Running on oeis4.)