|
%I M5052 N2185
%S 18,23,28,32,35,39,42,46,49,52,55,58,60,63,66,68,71,74,76,79,81,84,86,
%T 88,91,93,95,98,100,102,104,107,109,111,113,115,118,120,122,124,126
%N Nearest integer to the n-th Gram point.
%C Every integer greater than 3295 is in this sequence. - T. D. Noe, Aug 03 2007
%D C. B. Haselgrove and J. C. P. Miller, Tables of the Riemann Zeta Function. Royal Society Mathematical Tables, Vol. 6, Cambridge Univ. Press, 1960, p. 58.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H T. D. Noe, <a href="/A002505/b002505.txt">Table of n, a(n) for n=0..3000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/GramPoint.html">Gram Point</a>
%t a[n_] := Round[ g /. FindRoot[ RiemannSiegelTheta[g] == Pi*n, {g, 2*Pi*Exp[1 + ProductLog[(8*n + 1)/(8*E)]]}]]; Table[a[n], {n, 0, 40}] (* _Jean-François Alcover_, Oct 17 2012, after _Eric W. Weisstein_ *)
%K nonn
%O 0,1
%A _N. J. A. Sloane_.
|
