This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A131975 #9 Nov 26 2024 19:34:46
%S A131975 0,1,2,3,6,9,12,13,16,19,22,44,66,88,110,132,154,176,179,201,223,245,
%T A131975 267,289,311,333,355,710,1065,1420,1775,2130,2485,2840,3195,3550,3905,
%U A131975 4260,4615,4970,5325,5680,6035,6390,6745,7100,7455,7810,8165,8520,8875
%N A131975 Numbers n where |sinc(n)| decreases monotonically to 0 (where sinc(x)=sin(x)/x).
%t A131975 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 *)
%o A131975 (PARI)
%o A131975 A131975(nmax)={ local(n=1,aprev=1) ; print1(0) ; while(n<nmax, if( abs(sinc(n)) < aprev, print1(", ",n) ; aprev=abs(sinc(n)) ; ) ; n++ ; ) ; }
%o A131975 A131975(16000) ; \\ _R. J. Mathar_, Oct 07 2007
%Y A131975 Cf. A004112, A046947.
%K A131975 nonn
%O A131975 1,3
%A A131975 Laurent A. Guerin (laurent.a.guerin(AT)orange.fr), Oct 06 2007
%E A131975 More terms from _R. J. Mathar_ and _Stefan Steinerberger_, Oct 07 2007