1,1

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

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

Sequence in context: A215567 A214519 A099502 * A055059 A050903 A117766

Adjacent sequences: A145021 A145022 A145023 * A145025 A145026 A145027

nonn

Vladimir Joseph Stephan Orlovsky, Sep 29 2008

approved