OFFSET
1,1
COMMENTS
Complementary function to the log type function of the primes and their distributions as the function of the composites and their distribution.
The result even as an exponential function seems to tend to an asymototic limit.
MATHEMATICA
(* manufacture the composite numbers as a function*) p[n_]=n!/Product[Prime[i], {i, 2, PrimePi[n]}] digits=200 a0=Table[p[n]/p[n-1], {n, 2, digits}] c=Delete[Delete[Union[a0], 1], 1] d=Dimensions[c][[1]] Composite[n_]=c[[n]] (* make the log equivalent function*) g[n_]=(Composite[n]-Sqrt[Composite[n]*CompositePi[n]])/(-CompositePi[n]+ Sqrt[Composite[n]*CompositePi[n]]) e=Table[Floor[Exp[g[n]]], {n, 1, d-1}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 14 2004
STATUS
approved