A282178 Primes for which the sum of all preceding odd-indexed prime gaps is exactly one greater than the sum of all preceding even-indexed prime gaps.
3, 7, 43, 79, 107, 1471, 1579, 1663, 3491, 3547, 3659, 3691, 3719, 3779, 3823, 3851, 3947, 4079, 4583, 4679, 4703, 27271, 28643, 28663, 28711, 29023, 41603, 41651, 41999, 42443, 42787, 42899, 44263, 44279, 45971, 50599, 133979, 28335623
Offset: 1
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..28850 (first 846 terms from Robert G. Wilson v)
- N. J. A. Sloane, Notes on the sequence of Bostrophedon primes (A330339) and the "ski-run" A330545.
- Frank Stevenson, Table of n, a(n) for n=1..163010
- Frank Stevenson, Log-log histogram of first 163010 terms.
- Walter Trump, The boustrophedon path as far as the prime 1741. This covers the primes 3 through 1663 in the sequence (see the red dots). The rows are horizontal, alternately directed to the right and to the left.
- Walter Trump, The boustrophedon path as far as the prime 1741, drawn as a zig-zag. This also covers the primes 3 through 1663 in the sequence. The rows slope downwards, alternately directed to the right and to the left.
- Walter Trump, The boustrophedon path as far as the prime 4999. This covers the primes 3 through 4703 in the sequence (see the red dots). The rows are horizontal, alternately directed to the right and to the left.
Crossrefs
Programs
-
Mathematica
With[{s = Differences@ Prime@ Range[10^5]}, Prime[1 + Position[Array[Total@ Take[s, {1, #, 2}] - Total@ Take[s, {2, #, 2}] &, Length@ s], 1][[All, 1]] ] ]
-
PARI
my(a=2,n=1,pp=2);forprime(p=3,47000000,n++;a+= (-1)^(n+1)*(p-pp);if(a==1,print1(p,", "));pp=p) \\ Hugo Pfoertner, Dec 23 2019
Comments