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 A123504 #14 May 31 2025 09:42:34 %S A123504 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, %T A123504 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, %U A123504 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0 %N A123504 Sequence generated from the first nontrivial zero of the Riemann zeta function. %C A123504 A123505 records the lengths of runs. A123506 uses the second zero. %F A123504 Extract argument from (1/n)^z, z = (1/2 + i*14.1347251417...). a(n) = 1 if the argument is between 0 and 180 degrees, and = 0 if otherwise (n = 2, 3, 4, ...). %e A123504 a(8) = 1 since (1/8)^z = (0.353553..., angle 115.943... degrees). %t A123504 a[n_] := Boole[Arg[1/n^ZetaZero[1]] > 0]; Array[a, 100, 2] (* _Amiram Eldar_, May 31 2025 *) %o A123504 (PARI) t=1/2+solve(y=14,15,imag(zeta(1/2+y*I)))*I; %o A123504 a(n)=arg(n^-t)>0 \\ _Charles R Greathouse IV_, Mar 10 2016 %Y A123504 Cf. A058303, A100060, A102522, A102523, A123505, A123506, A123507. %K A123504 nonn %O A123504 2,1 %A A123504 _Gary W. Adamson_, Oct 01 2006 %E A123504 More terms from _Amiram Eldar_, May 31 2025