OFFSET
1,3
MATHEMATICA
Join[{0}, Position[Partition[Table[Abs[Sin[n]], {n, 120}], 2, 1], _?(#[[1]]< #[[2]]&), {1}, Heads->False]]//Flatten (* Harvey P. Dale, Dec 13 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved