A171622 Floor(n-th noncomposite / n).
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, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4
Offset: 1
Keywords
Programs
-
Mathematica
nn=100;With[{ncs=Join[{1},Prime[Range[nn]]]},Floor[#[[1]]/#[[2]]]&/@ Thread[ {ncs, Range[nn+1]}]] (* Harvey P. Dale, Feb 19 2013 *)
Comments