login
A123504
Sequence generated from the first nontrivial zero of the Riemann zeta function.
3
1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
OFFSET
2,1
COMMENTS
A123505 records the lengths of runs. A123506 uses the second zero.
FORMULA
Extract argument from (1/n)^z, z = (1/2 + i*14.134725142...). a(n) = 1 if arg is between 0 and 180 deg.; and = 0 if otherwise (n=2,3,4...).
EXAMPLE
a(8) = 1 since (1/8)^z = (.353553..., Angle 115.943...deg.)
PROG
(PARI) t=1/2+solve(y=14, 15, imag(zeta(1/2+y*I)))*I;
a(n)=arg(n^-t)>0 \\ Charles R Greathouse IV, Mar 10 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Gary W. Adamson, Oct 01 2006
STATUS
approved