This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A246388 #7 Aug 26 2014 06:00:53 %S A246388 3,9,15,21,28,34,40,47,53,59,65,72,78,84,91,97,103,109,116,122,128, %T A246388 135,141,147,153,160,166,172,179,185,191,197,204,210,216,223,229,235, %U A246388 241,248,254,260,267,273,279,285,292,298,304,311,317,323,329,336,342 %N A246388 Nonnegative integers k satisfying sin(k) >= 0 and sin(k+1) <= 0. %C A246388 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.) %H A246388 Clark Kimberling, <a href="/A246388/b246388.txt">Table of n, a(n) for n = 0..1000</a> %t A246388 z = 400; f[x_] := Sin[x] %t A246388 Select[Range[0, z], f[#]*f[# + 1] <= 0 &] (* A022844 *) %t A246388 Select[Range[0, z], f[#] >= 0 && f[# + 1] <= 0 &] (* A246388 *) %t A246388 Select[Range[0, z], f[#] <= 0 && f[# + 1] >= 0 &] (* A038130 *) %t A246388 Select[Range[0, z], f[#]*f[# + 1] > 0 &] (* A054386 *) %t A246388 Select[Range[0, z], f[#] >= 0 && f[# + 1] >= 0 &] (* A246389 *) %t A246388 Select[Range[0, z], f[#] <= 0 && f[# + 1] <= 0 &] (* A246390 *) %Y A246388 Cf. A022844, A038130, A054386, A246389, A246390. %K A246388 nonn,easy %O A246388 0,1 %A A246388 _Clark Kimberling_, Aug 24 2014