cp's OEIS Frontend

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.

Showing 1-3 of 3 results.

A123507 Lengths of bit runs in A123506.

Original entry on oeis.org

1, 2, 1, 3, 1, 1, 2, 2, 3, 2, 4, 3, 5, 5, 5, 7, 8, 9, 11, 12, 14, 17, 19, 22, 26, 31, 34, 41, 47, 55, 64, 73, 86, 100, 115, 135, 156, 181, 210, 244, 283, 329, 383, 443, 516, 598, 695, 807, 936, 1088, 1263, 1467, 1703, 1978, 2297, 2666, 3097, 3595, 4176, 4848, 5630
Offset: 2

Views

Author

Gary W. Adamson, Oct 01 2006

Keywords

Comments

The sequence uses operations based on the second nontrivial Riemann zero: (1/2 + i*t), t = 21.022039639... A123504 and A123505 use the first nontrivial zero.
Record the numbers of consecutive bit runs of A123506, see example.

Examples

			a(4) = 3 since A123506 = 0, 1, 1, 0, 1, 1, 1, ...

References

  • John Derbyshire, Prime Obsession, Bernhard Riemann and the Greatest Unsolved Problem in Mathematics, Plume - a Penguin Group, NY, 2003, pp. 198-199.

Crossrefs

Cf. A100060, A102522, A102523, A123504, A123505, A123506.

Programs

  • Mathematica
    Length /@ Split[Table[Boole[Arg[1/n^ZetaZero[2]] > 0], {n, 2, 10^6}]] (* Amiram Eldar, May 31 2025 *)

Extensions

More terms from Amiram Eldar, May 31 2025

A123504 Sequence generated from the first nontrivial zero of the Riemann zeta function.

Original entry on oeis.org

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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0
Offset: 2

Views

Author

Gary W. Adamson, Oct 01 2006

Keywords

Comments

A123505 records the lengths of runs. A123506 uses the second zero.

Examples

			a(8) = 1 since (1/8)^z = (0.353553..., angle 115.943... degrees).

Crossrefs

Cf. A058303, A100060, A102522, A102523, A123505, A123506, A123507.

Programs

  • Mathematica
    a[n_] := Boole[Arg[1/n^ZetaZero[1]] > 0]; Array[a, 100, 2] (* Amiram Eldar, May 31 2025 *)
  • 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

Formula

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, ...).

Extensions

More terms from Amiram Eldar, May 31 2025

A123505 Lengths of bit runs in A123504.

Original entry on oeis.org

1, 2, 1, 2, 2, 2, 3, 3, 5, 6, 7, 8, 11, 14, 17, 21, 26, 34, 41, 51, 65, 80, 101, 125, 157, 196, 245, 305, 381, 477, 595, 743, 927, 1159, 1448, 1807, 2258, 2819, 3521, 4397, 5492, 6859, 8565, 10698, 13361, 16685, 20839, 26026, 32503, 40593, 50697, 63315, 79074
Offset: 2

Views

Author

Gary W. Adamson, Oct 01 2006

Keywords

Comments

A123507 records the bit runs of A123506 and uses the second zero in an analogous operation.
Record the numbers of consecutive bit runs of A123504, see example.

Examples

			A123504 = 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1...; therefore the numbers of bit runs are 1, 2, 1, 2, 2, 2, 3, ...

Crossrefs

Cf. A100060, A102522, A102523, A123504, A123506, A123507.

Programs

  • Mathematica
    Length /@ Split[Table[Boole[Arg[1/n^ZetaZero[1]] > 0], {n, 2, 10^6}]] (* Amiram Eldar, May 31 2025 *)

Extensions

More terms from Amiram Eldar, May 31 2025
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.