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 A246415 #22 Jan 04 2018 03:58:55 %S A246415 22,66,110,154,177,221,265,309,355,399,443,487,554,598,642,686,732, %T A246415 776,820,864,887,931,975,1019,1065,1109,1153,1197,1264,1308,1352,1396, %U A246415 1442,1486,1530,1574,1597,1641,1685,1729,1775,1819,1863,1907,1974,2018,2062 %N A246415 Positive integers k satisfying csc(k) < csc(k+1) < csc(k+2) > csc(k+3). %C A246415 A246413, A246414, and this sequence partition the positive integers. %H A246415 Clark Kimberling, <a href="/A246415/b246415.txt">Table of n, a(n) for n = 1..1000</a> %t A246415 z = 200; %t A246415 f[x_] := f[x] = Csc[x]; %t A246415 Select[Range[1, z], f[#] > f[# + 1] &] (* A246413 *) %t A246415 Select[Range[1, z], f[#] < f[# + 1] > f[# + 2] &] (* A246414 *) %t A246415 Select[Range[1, z], f[#] < f[# + 1] < f[# + 2] > f[# + 3] &] (* A246415 *) %o A246415 (PARI) is(n) = (1/sin(n)) < (1/sin(n+1)) && (1/sin(n+1)) < (1/sin(n+2)) && (1/sin(n+2)) > (1/sin(n+3)) \\ _Felix Fröhlich_, Jan 02 2018 %Y A246415 Cf. A246413, A246414. %K A246415 nonn,easy %O A246415 1,1 %A A246415 _Clark Kimberling_, Aug 25 2014 %E A246415 Name corrected by _David Gross_, Jan 02 2018