OFFSET
1,8
COMMENTS
MATHEMATICA
nn=100; With[{ncs=Join[{1}, Prime[Range[nn]]]}, Floor[#[[1]]/#[[2]]]&/@ Thread[ {ncs, Range[nn+1]}]] (* Harvey P. Dale, Feb 19 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Dec 13 2009
STATUS
approved