login
A171627
a(n) = ceiling(n-th composite/n).
0
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, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2
OFFSET
1,1
COMMENTS
Numerators of (A002808(n)/A000027(n)) in A171527(n), denominators of (A002808(n)/A000027(n)) in A171528(n).
FORMULA
a(n) = ceiling(A002808(n)/A000027(n)).
a(n) = A171623(n) + 1 for n >= 8.
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A375311 A243564 A358329 * A239884 A143487 A031350
KEYWORD
nonn,less
AUTHOR
Jaroslav Krizek, Dec 13 2009
STATUS
approved