%I #6 Dec 04 2015 11:35:02
%S 1,3,4,6,7,9,10,12,13,15,16,18,19,21,22,23,25,26,28,29,31,32,34,35,37,
%T 38,40,41,43,44,45,47,48,50,51,53,54,56,57,59,60,62,63,65,66,67,69,70,
%U 72,73,75,76,78,79,81,82,84,85,87,88,89,91
%N |sin(2n)| > |sin(n)|.
%t Select[Range[100],Abs[Sin[2#]]>Abs[Sin[#]]&] (* _Harvey P. Dale_, Dec 04 2015 *)
%K nonn
%O 1,2
%A _Clark Kimberling_