%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