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 A246297 #17 May 18 2020 12:09:28 %S A246297 4,10,16,23,29,35,41,48,54,60,67,73,79,85,92,98,104,111,117,123,129, %T A246297 136,142,148,155,161,167,173,180,186,192,198,205,211,217,224,230,236, %U A246297 242,249,255,261,268,274,280,286,293,299,305,312,318,324,330,337,343 %N A246297 Numbers k such that sin(k) > sin(k+1) < sin(k+2). %C A246297 The sequences A026309, A246297, A246298, A246299 partition the nonnegative integers. %C A246297 Numbers like 20, 64, 108, 152,... are in none of these 4 sequences. - _R. J. Mathar_, May 18 2020 %H A246297 Clark Kimberling, <a href="/A246297/b246297.txt">Table of n, a(n) for n = 1..1000</a> %t A246297 z = 500; f[x_] := f[x] = Sin[x]; t = Range[0, z]; %t A246297 Select[t, f[#] < f[# + 1] &] (* A026309 *) %t A246297 Select[t, f[#] > f[# + 1] < f[# + 2] &] (* A246297 *) %t A246297 Select[t, f[#] > f[# + 1] > f[# + 2] < f[# + 3] &] (* A246298 *) %t A246297 Select[t, f[#] > f[# + 1] > f[# + 2] > f[# + 3] < f[# + 4] &] (* A246299 *) %Y A246297 Cf. A026309, A246298, A246299, A246293 (complement of A026309). %K A246297 nonn,easy %O A246297 1,1 %A A246297 _Clark Kimberling_, Aug 21 2014 %E A246297 Corrected signs in NAME. - _R. J. Mathar_, May 18 2020