login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A246390 Nonnegative integers k satisfying sin(k) <= 0 and sin(k+1) <= 0. 3
4, 5, 10, 11, 16, 17, 22, 23, 24, 29, 30, 35, 36, 41, 42, 48, 49, 54, 55, 60, 61, 66, 67, 68, 73, 74, 79, 80, 85, 86, 92, 93, 98, 99, 104, 105, 110, 111, 112, 117, 118, 123, 124, 129, 130, 136, 137, 142, 143, 148, 149, 154, 155, 156, 161, 162, 167, 168, 173 (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, A246388, A246389.

Sequence in context: A285135 A037353 A269003 * A047257 A327311 A151735

Adjacent sequences:  A246387 A246388 A246389 * A246391 A246392 A246393

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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 28 21:04 EDT 2022. Contains 354907 sequences. (Running on oeis4.)