login
a(n) = ceiling(n-th composite/n).
0

%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