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