OFFSET
1,3
COMMENTS
A reinversion sequence based on the primes with an A005185 pattern.
MATHEMATICA
prid[n_Integer?Positive] := prid[n] =PrimePi[n-PrimePi[n-1]] + Prime[Abs[n - Prime[n-2]]] prid[1] = prid[2] = 1 digits=256 a=Table[prid[n], {n, 1, digits+4}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 12 2003
STATUS
approved