A171624 Floor(n-th nonprime / n).

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, 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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset: 1

Author

Jaroslav Krizek, Dec 13 2009

Keywords

• nonn

Comments

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).

Programs

Mathematica

Module[{nn=100,np},np=Complement[Range[nn],Prime[Range[PrimePi[nn]]]];Floor[np/Range[Length[np]]]] (* Harvey P. Dale, Oct 28 2015 *)

Formula

a(n) = 1 for n >= 5.

Extensions

More terms from Harvey P. Dale, Oct 28 2015