OFFSET
1,5
COMMENTS
A PrimePi reinversion based on Mallows A005229 as the pattern sequence.
MATHEMATICA
mrid[n_Integer?Positive] := mrid[n] =PrimePi[PrimePi[n-2]] + mrid[n - mrid[n-2]] mrid[1] = mrid[2] = 1 digits=256 a=Table[mrid[n], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 11 2003
STATUS
approved