|
Search: id:A131975
|
|
|
| A131975 |
|
Numbers n where |sinc(n)| decreases monotonically to 0 (where sinc(x)=sin(x)/x). |
|
+0
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; listen)
|
|
|
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
|
|
PROGRAM
|
(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.
Adjacent sequences: A131972 A131973 A131974 this_sequence A131976 A131977 A131978
Sequence in context: A032704 A029805 A064417 this_sequence A057474 A077121 A140495
|
|
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
|
|
|
Search completed in 0.002 seconds
|
