OFFSET
1,5
COMMENTS
Composite information as a projection with the Composite distribution.
CompositeInformation[n]=1-PrimePi[n]+PrimePi[n-1]) set is from -> {0,1}
MATHEMATICA
digits=200 f[n_]=Floor[(n-PrimePi[n])/(2-PrimePi[n]+PrimePi[n-1])] a=Table[f[n], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 29 2004
STATUS
approved