|
%I #4 Oct 28 2015 13:45:12
%S 1,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
%T 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
%U 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
%N Floor(n-th nonprime / n).
%C a(n)= floor(A018252(n)/A000027(n)) = floor(A018252(n)/n). Numerators of (A018252(n)/A000027(n)) in A171529(n), denominators of (A018252(n)/A000027(n)) in A171530(n).
%F a(n) = 1 for n >= 5.
%t Module[{nn=100,np},np=Complement[Range[nn],Prime[Range[PrimePi[nn]]]];Floor[np/Range[Length[np]]]] (* _Harvey P. Dale_, Oct 28 2015 *)
%K nonn
%O 1,2
%A _Jaroslav Krizek_, Dec 13 2009
%E More terms from _Harvey P. Dale_, Oct 28 2015
|
