1,3

Table of n, a(n) for n=1..69.

Select[Range[120], Abs[Sin[ # ]*Sin[ # + 2]] < Sin[ # + 1]^2 &] (* Stefan Steinerberger, Apr 12 2006 *)

Cf. A117672.

Sequence in context: A239438 A317138 A032387 * A024912 A108588 A194095

Adjacent sequences: A026310 A026311 A026312 * A026314 A026315 A026316

nonn

Clark Kimberling

More terms from Stefan Steinerberger, Apr 12 2006

Missing a(1)=0 inserted by Sean A. Irvine, Sep 25 2019

approved