|
| |
|
|
A131975
|
|
Numbers n where |sinc(n)| decreases monotonically to 0 (where sinc(x)=sin(x)/x).
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
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 (stefan.steinerberger(AT)gmail.com), Oct 08 2007
|
|
|
PROG
| (PARI) sinc(x)={ sin(x)/x ; } 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 (mathar(AT)strw.leidenuniv.nl), Oct 07 2007
|
|
|
CROSSREFS
| Cf. A004112, A046947.
Sequence in context: A082007 A064417 A191981 * A057474 A145441 A077121
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 (mathar(AT)strw.leidenuniv.nl) and Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Oct 07 2007
|
| |
|
|
