login
Floor(n-th noncomposite / n).
1

%I #4 Feb 19 2013 18:39:30

%S 1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,

%T 3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4

%N Floor(n-th noncomposite / n).

%C a(n)= floor(A008578(n)/A000027(n)) = floor(A008578(n)/n). Numerators of (A008578(n)/A000027(n)) in A171525(n), denominators of (A008578(n)/A000027(n)) in A171526(n).

%t nn=100;With[{ncs=Join[{1},Prime[Range[nn]]]},Floor[#[[1]]/#[[2]]]&/@ Thread[ {ncs, Range[nn+1]}]] (* _Harvey P. Dale_, Feb 19 2013 *)

%K nonn

%O 1,8

%A _Jaroslav Krizek_, Dec 13 2009