|
Search: id:A128599
|
|
|
| A128599 |
|
a(n) = the numerator of the continued fraction [[n/1];[n/2],[n/3],..,[n/n]] = the numerator of [[n/n];[n/(n-1)],[n/(n-2)],..,[n/1]], where [x] is floor(x). |
|
+0
3
|
|
| 1, 3, 7, 22, 43, 170, 321, 1127, 2816, 9221, 16403, 90121, 157741, 475003, 1377765, 5194616, 8925845, 41509031, 70873504, 314321071, 846062365, 2349224135, 3973214615, 25816158418, 53403343055, 145093944173, 373986049879
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
MAPLE
|
A128599 := 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(numer(a)) ; end: for n from 1 to 40 do printf("%d, ", A128599(n)) ; od ; (Mathar)
|
|
MATHEMATICA
|
Table[Numerator[FromContinuedFraction[Table[Floor[n/i], {i, 1, n}]]], {n, 1, 30}] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jun 02 2007
|
|
CROSSREFS
|
Cf. A128600, A128601.
Sequence in context: A049365 A031885 A158236 this_sequence A080882 A079120 A092566
Adjacent sequences: A128596 A128597 A128598 this_sequence A128600 A128601 A128602
|
|
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
|
