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,3

Links

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

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 *)

Prog

(PARI)
A131975(nmax)={ local(n=1, aprev=1) ; print1(0) ; while(n<nmax, if( abs(sinc(n)) < aprev, print1(", ", n) ; aprev=abs(sinc(n)) ; ) ; n++ ; ) ; }
A131975(16000) ; \\ R. J. Mathar, Oct 07 2007

Crossrefs

Cf. A004112, A046947.

Sequence in context: A082007 A064417 A191981 * A288754 A057474 A347785

Adjacent sequences: A131972 A131973 A131974 * A131976 A131977 A131978

Keyword

nonn

Author

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

Extensions

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

Status

approved