OFFSET
1,3
MAPLE
A128600 := proc(n) local a, i ; a := 1 ; for i from n-1 to 1 by -1 do a := floor(n/i)+1/a ; od ; RETURN(denom(a)) ; end: for n from 1 to 40 do printf("%d, ", A128600(n)) ; od ; # R. J. Mathar, Jun 06 2007
MATHEMATICA
Table[Denominator[FromContinuedFraction[Table[Floor[n/i], {i, 1, n}]]], {n, 1, 30}] (* Stefan Steinerberger, Jun 02 2007 *)
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Leroy Quet, Mar 12 2007
EXTENSIONS
More terms from Stefan Steinerberger and R. J. Mathar, Jun 02 2007
STATUS
approved