OFFSET
1,1
COMMENTS
Exponential version of log like weighted average function of primes and the prime distribution.
MATHEMATICA
digits=200 g[n_]=(Prime[n]-n)/(n-PrimePi[n]) b=Table[Floor[Exp[((g[n]+g[n+1])-g[n*(n+1)]+1)/1.5]], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jan 04 2004
STATUS
approved