|
Search: id:A128600
|
|
|
| A128600 |
|
a(n) = the denominator of the continued fraction [[n/1];[n/2],[n/3],..,[n/n]], where [x] is floor(x). |
|
+0
3
|
|
| 1, 1, 2, 5, 8, 27, 44, 137, 305, 905, 1466, 7411, 11986, 33597, 91007, 322205, 521306, 2292156, 3708875, 15639101, 40100349, 106348943, 172076807, 1071988711, 2129108426, 5564227811, 13812311521, 53326260495, 86283685147, 492560346093
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
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 (mathar(AT)strw.leidenuniv.nl), Jun 06 2007
|
|
MATHEMATICA
|
Table[Denominator[FromContinuedFraction[Table[Floor[n/i], {i, 1, n}]]], {n, 1, 30}] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jun 02 2007
|
|
CROSSREFS
|
Cf. A128599, A128601.
Sequence in context: A142869 A086825 A093365 this_sequence A066846 A140275 A025533
Adjacent sequences: A128597 A128598 A128599 this_sequence A128601 A128602 A128603
|
|
KEYWORD
|
frac,nonn
|
|
AUTHOR
|
Leroy Quet Mar 12 2007
|
|
EXTENSIONS
|
More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com) and R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 02 2007
|
|
|
Search completed in 0.002 seconds
|
