%I #25 Jul 24 2021 08:34:56
%S 0,1,3,4,6,7,10,13,14,16,17,19,20,22,23,25,26,28,29,32,35,36,38,39,41,
%T 42,44,45,47,48,50,51,54,57,58,60,61,63,64,66,67,69,70,72,73,76,79,80,
%U 82,83,85,86,88,89,91,92,94,95,98,101,102,104,105,107,108,110,111,113,114
%N Numbers k such that |sin(k)*sin(k+2)| < (sin(k+1))^2.
%t Select[Range[120], Abs[Sin[ # ]*Sin[ # + 2]] < Sin[ # + 1]^2 &] (* _Stefan Steinerberger_, Apr 12 2006 *)
%Y Cf. A117672.
%K nonn
%O 1,3
%A _Clark Kimberling_
%E More terms from _Stefan Steinerberger_, Apr 12 2006
%E Missing a(1)=0 inserted by _Sean A. Irvine_, Sep 25 2019
|