A145024 Number of primes between successive balanced primes (A006562).

3, 13, 21, 3, 7, 8, 1, 18, 29, 5, 3, 8, 11, 31, 4, 20, 3, 7, 5, 19, 21, 32, 1, 19, 48, 19, 29, 32, 7, 38, 1, 43, 12, 33, 46, 6, 16, 8, 4, 34, 15, 1, 19, 7, 1, 23, 28, 30, 22, 8, 1, 7, 1, 52, 14, 56, 10, 26, 2, 30, 65, 5, 71, 12, 44, 39, 37, 6, 19, 47, 11, 10, 21, 7, 11, 4, 62, 7, 4, 8, 1

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

BalancedPrimeQ[n_]:=Prime[n+1]-Prime[n]==Prime[n]-Prime[n-1]; lst={}; a=1; Do[If[BalancedPrimeQ[n], i=PrimePi[p=Prime[n]]-PrimePi[a]; AppendTo[lst, i]; a=p], {n, 2, 5000}]; lst
Join[{3}, PrimePi[#[[2]]]-PrimePi[#[[1]]]&/@Partition[Prime[#]&/@SequencePosition[Differences[Prime[Range[2000]]], {x_, x_}][[;; , 2]], 2, 1]] (* Harvey P. Dale, Nov 28 2025 *)

Crossrefs

Sequence in context: A215567 A214519 A099502 * A055059 A050903 A117766

Adjacent sequences: A145021 A145022 A145023 * A145025 A145026 A145027

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Sep 29 2008

Status

approved