login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

A246388 and A038130 (Beatty sequence for 2*Pi) partition A022844 (Beatty sequence for Pi). Likewise, A054386, the complement of A022844, is partitioned by A246389 and A246390. (See the Mathematica program.)

LINKS

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

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

Cf. A022844, A038130, A054386, A246389, A246390.

Sequence in context: A102954 A272749 A273560 * A272793 A273567 A162486

Adjacent sequences:  A246385 A246386 A246387 * A246389 A246390 A246391

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 April 20 06:36 EDT 2019. Contains 322294 sequences. (Running on oeis4.)