%I #6 Dec 13 2016 14:19:06
%S 0,1,3,4,6,7,9,10,13,16,19,22,23,25,26,28,29,31,32,35,38,41,44,45,47,
%T 48,50,51,53,54,57,60,63,66,67,69,70,72,73,75,76,79,82,85,88,89,91,92,
%U 94,95,97,98,101,104,107,110,111,113,114,116,117
%N |sin(n)| < |sin(n+1)|.
%t Join[{0},Position[Partition[Table[Abs[Sin[n]],{n,120}],2,1],_?(#[[1]]< #[[2]]&),{1},Heads->False]]//Flatten (* _Harvey P. Dale_, Dec 13 2016 *)
%K nonn
%O 1,3
%A _Clark Kimberling_
|