A026313 Numbers k such that |sin(k)*sin(k+2)| < (sin(k+1))^2.
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, 42, 44, 45, 47, 48, 50, 51, 54, 57, 58, 60, 61, 63, 64, 66, 67, 69, 70, 72, 73, 76, 79, 80, 82, 83, 85, 86, 88, 89, 91, 92, 94, 95, 98, 101, 102, 104, 105, 107, 108, 110, 111, 113, 114
Offset: 1
Keywords
Crossrefs
Cf. A117672.
Programs
-
Mathematica
Select[Range[120], Abs[Sin[ # ]*Sin[ # + 2]] < Sin[ # + 1]^2 &] (* Stefan Steinerberger, Apr 12 2006 *)
Extensions
More terms from Stefan Steinerberger, Apr 12 2006
Missing a(1)=0 inserted by Sean A. Irvine, Sep 25 2019