1,4

A reinversion type sequence using the distribution sequence of the primes as the inverse function and A004001 as the pattern function.

Frequency count shows this sequence doesn't cover the integer domain.

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

crid[n_Integer?Positive] := crid[n] =PrimePi[PrimePi[n-1]] + crid[n - crid[n-1]] crid[1] = crid[2] = 1 digits=256 a=Table[crid[n], {n, 1, digits}]

Cf. A004001.

Sequence in context: A217754 A319397 A094950 * A166267 A117484 A086835

Adjacent sequences: A087871 A087872 A087873 * A087875 A087876 A087877

nonn

Roger L. Bagula, Oct 11 2003

approved