%I #7 Aug 29 2012 12:03:42
%S 2,0,0,0,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
%T 2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3
%N Floor(prime(n)/nonprime(n)).
%F a(n) = floor(A000040(n)/A018252(n)).
%F a(n) ~ log(n).
%e a(1) = [2/1] = 2.
%e a(2) = [3/4] = [0.75] = 0.
%e a(5) = [11/9] = [1.22222222] = 1.
%e a(16) = [53/25] = [2.12] = 2.
%e a(37) = [157/52] = [3.01923077] = 3.
%t nn=100;Module[{prs=Prime[Range[nn]],non},non=Take[Complement[ Range[ Last[ prs]],prs],nn];Floor[#[[1]]/#[[2]]]&/@Thread[{prs,non}]] (* _Harvey P. Dale_, Aug 29 2012 *)
%K easy,nonn
%O 1,1
%A _Jonathan Vos Post_, Jun 02 2007