%I #5 Mar 30 2012 17:34:14
%S 2,2,1,1,2,2,1,0,1,1,1,2,2,1,1,2,1,1,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,
%T 1,1,1,1,1,1,1,2,2,0,0,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
%U 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,3,2,1
%N Let g[n_]=Floor[(Prime[n]-n)/(n-PrimePi[n])]. Then a(n) = (g[n]+g[n+1])-g[n*(n+1)]+1.
%C Log-type weighted average function of primes and the prime distribution.
%C This function makes use of the addition property of logs. The resulting function looks like a log square wave with ringing on the leading edge.
%t digits=200 g[n_]=Floor[(Prime[n]-n)/(n-PrimePi[n])] b=Table[(g[n]+g[n+1])-g[n*(n+1)]+1, {n, 1, digits}]
%K nonn
%O 1,1
%A _Roger L. Bagula_, Jan 04 2004
|