OFFSET
1,1
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] &] (*A246413*)
Select[Range[1, z], f[#] < f[# + 1] > f[# + 2] &] (*A246414 *)
Select[Range[1, z], f[#] < f[# + 1] < f[# + 2] > f[# + 3] &] (*A246415*)
Position[Partition[Csc[Range[200]], 3, 1], _?(#[[1]]<#[[2]]>#[[3]]&), 1, Heads->False]//Flatten (* Harvey P. Dale, May 05 2023 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Aug 25 2014
STATUS
approved