A065310 Number of occurrences of n-th prime in A065308, where A065308(j) = prime(j - pi(j)).

3, 2, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 2, 2

Offset

1,1

Comments

Seems identical to A054546. Each odd prime arises once or twice!?

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Mathematica

t=Table[Prime[w-PrimePi[w]], {w, a, b}] Table[Count[t, Prime[n]], {n, c, d}]

Prog

(PARI) { p=1; f=2; m=1; for (n=1, 1000, a=0; p=nextprime(p + 1); while (p==f, a++; m++; f=prime(m - primepi(m))); write("b065310.txt", n, " ", a) ) } \\ Harry J. Smith, Oct 16 2009

Crossrefs

Cf. A000040, A000720, A054576, A065308-A065309.

Sequence in context: A086138 A170822 A054546 * A226352 A238402 A016558

Adjacent sequences: A065307 A065308 A065309 * A065311 A065312 A065313

Keyword

nonn

Author

Labos Elemer, Oct 29 2001

Status

approved