|
%I #4 Mar 30 2012 17:34:14
%S 0,1,1,1,2,1,3,2,2,3,6,3,7,4,4,5,10,5,11,6,6,7,14,7,8,8,9,9,19,10,20,
%T 10,11,11,12,12,25,13,13,14,28,14,29,15,15,16,32,16,17,17,18,18,37,19,
%U 19,20,20,21,42,21,43,22,22,23,23,24,48,24,25,25,51,26,52,26,27,27,28,28
%N a(n) = Floor[(n-PrimePi[n])/(2-PrimePi[n]+PrimePi[n-1])]
%C Composite information as a projection with the Composite distribution.
%C CompositeInformation[n]=1-PrimePi[n]+PrimePi[n-1]) set is from -> {0,1}
%t digits=200 f[n_]=Floor[(n-PrimePi[n])/(2-PrimePi[n]+PrimePi[n-1])] a=Table[f[n], {n, 1, digits}]
%K nonn
%O 1,5
%A _Roger L. Bagula_, Jan 29 2004
|
