A246412 Positive integers k satisfying csc(k) > csc(k+1) > csc(k+2) < csc(k+3).

44, 88, 132, 199, 243, 287, 331, 377, 421, 465, 509, 532, 576, 620, 664, 710, 754, 798, 842, 909, 953, 997, 1041, 1087, 1131, 1175, 1219, 1242, 1286, 1330, 1374, 1420, 1464, 1508, 1552, 1619, 1663, 1707, 1751, 1797, 1841, 1885, 1929, 1952, 1996, 2040, 2084

Offset

1,1

Comments

A246410, A246411, and a(n) partition the positive integers.

Links

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

Mathematica

z = 200; f[x_] := f[x] = Csc[x];
Select[Range[1, z], f[#] < f[# + 1] &] (*A246410*)
Select[Range[1, z], f[#] > f[# + 1] < f[# + 2] &] (*A246411*)
Select[Range[1, 10 z], f[#] > f[# + 1] > f[# + 2] < f[# + 3] &] (*A246412*)

Crossrefs

Cf. A246410, A246411.

Sequence in context: A118087 A335481 A345409 * A248365 A044182 A044563

Adjacent sequences: A246409 A246410 A246411 * A246413 A246414 A246415

Keyword

nonn,easy

Author

Clark Kimberling, Aug 25 2014

Status

approved