A131975 Numbers n where |sinc(n)| decreases monotonically to 0 (where sinc(x)=sin(x)/x).

0, 1, 2, 3, 6, 9, 12, 13, 16, 19, 22, 44, 66, 88, 110, 132, 154, 176, 179, 201, 223, 245, 267, 289, 311, 333, 355, 710, 1065, 1420, 1775, 2130, 2485, 2840, 3195, 3550, 3905, 4260, 4615, 4970, 5325, 5680, 6035, 6390, 6745, 7100, 7455, 7810, 8165, 8520, 8875

Offset: 1

Author

Laurent A. Guerin (laurent.a.guerin(AT)orange.fr), Oct 06 2007

Keywords

• nonn

Crossrefs

Cf. A004112, A046947.

Programs

Mathematica

a = {0, 1}; For[n = 2, n < 10000, n++, If[Abs[Sin[n]/n] < Abs[Sin[a[[ -1]]]/a[[ -1]]], AppendTo[a, n]]]; a (* Stefan Steinerberger, Oct 08 2007 *)

PARI

A131975(nmax)={ local(n=1,aprev=1) ; print1(0) ; while(nA131975(16000) ; \\ R. J. Mathar, Oct 07 2007

Extensions

More terms from R. J. Mathar and Stefan Steinerberger, Oct 07 2007