|
|
|
|
|
|
|
|
|
#11 by Charles R Greathouse IV at Mon Mar 27 23:54:30 EDT 2023
|
|
|
|
|
|
|
|
#10 by Charles R Greathouse IV at Mon Mar 27 23:54:28 EDT 2023
|
|
| PROG
|
(PARI) solve(t=17.8, 18, 4*Pi+arg(gamma(1/4+I*t/2))-log(Pi)*t/2) \\ Charles R Greathouse IV, Mar 27 2023
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#9 by Charles R Greathouse IV at Sat Jan 22 01:28:03 EST 2022
|
|
|
|
|
|
|
|
#8 by Charles R Greathouse IV at Sat Jan 22 01:27:56 EST 2022
|
|
| PROG
|
(PARI) g0(n)=2*Pi*exp(1+lambertw((8*n+1)/exp(1)/8)) \\ approximate location of gram(n)
th(t)=arg(gamma(1/4+I*t/2))-log(Pi)*t/2 \\ theta, but off by some integer multiple of 2*Pi
thapprox(t)=log(t/2/Pi)*t/2-t/2-Pi/8+1/48/t-1/5760/t^3
RStheta(t)=my(T=th(t)); (thapprox(t)-T)\/(2*Pi)*2*Pi+T
gram(n)=my(G=g0(n), k=n*Pi); solve(x=G-.003, G+1e-8, RStheta(x)-k)
gram(0) \\ Charles R Greathouse IV, Jan 22 2022
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#7 by Joerg Arndt at Thu Jun 07 07:37:23 EDT 2012
|
|
|
|
|
|
|
|
#6 by Joerg Arndt at Thu Jun 07 07:37:02 EDT 2012
|
|
| MATHEMATICA
|
First[ RealDigits[t /. FindRoot[ RiemannSiegelTheta[t] == 0, {t, 17}, WorkingPrecision -> 120], 10, 102]](* _]] (* _Jean-François Alcover_, Jun 07 2012 *)
|
|
| STATUS
|
proposed
editing
|
|
|
|
|
|
|
#5 by Jean-François Alcover at Thu Jun 07 07:36:16 EDT 2012
|
|
|
|
|
|
|
|
#4 by Jean-François Alcover at Thu Jun 07 07:35:22 EDT 2012
|
|
| MATHEMATICA
|
First[ RealDigits[t /. FindRoot[ RiemannSiegelTheta[t] == 0, {t, 17}, WorkingPrecision -> 120], 10, 102]](* Jean-François Alcover, Jun 07 2012 *)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#3 by Russ Cox at Sat Mar 31 12:39:09 EDT 2012
|
|
| AUTHOR
|
_Eric W. Weisstein (eric(AT)weisstein.com), _, Jan 02 2006
|
|
|
|
|
Discussion
|
| Sat Mar 31
| 12:39
| OEIS Server: https://oeis.org/edit/global/877
|
|
|
|
|
|
|
#2 by N. J. A. Sloane at Sun Jun 29 03:00:00 EDT 2008
|
|
| KEYWORD
|
nonn,cons,new
|
|
| AUTHOR
|
E. W. Eric Weisstein (eric(AT)weisstein.com), Jan 02 2006
|
|
|
|
|
|