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

Table of n, a(n) for n=1..81.

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

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