login
Floor(prime(n)/nonprime(n)).
0

%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