%I #6 Mar 21 2024 10:24:17
%S 4,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
%T 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
%N a(n) = ceiling(n-th composite/n).
%C Numerators of (A002808(n)/A000027(n)) in A171527(n), denominators of (A002808(n)/A000027(n)) in A171528(n).
%F a(n) = ceiling(A002808(n)/A000027(n)).
%F a(n) = A171623(n) + 1 for n >= 8.
%t Module[{nn=80,prpi,comps},prpi=PrimePi[nn];comps=Complement[Rest[ Range[nn+prpi+1]],Prime[Range[prpi]]];Ceiling[Last[#]/First[#]]&/@ Thread[{Range[nn],comps}]] (* _Harvey P. Dale_, Jun 03 2012 *)
%K nonn,less
%O 1,1
%A _Jaroslav Krizek_, Dec 13 2009