OFFSET
2,1
COMMENTS
Purely functional sequence undefined for n=1 based on the primes in a reinversion pattern based on A004001.
MATHEMATICA
prid[n_Integer?Positive] := prid[n] =Prime[Prime[n-1]] + PrimePi[Abs[n - PrimePi[n-1]]] digits=256 a=Table[prid[n], {n, 2, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 12 2003
STATUS
approved