OFFSET
1,1
COMMENTS
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
KEYWORD
nonn,less
AUTHOR
Jaroslav Krizek, Dec 13 2009
STATUS
approved