A128601 a(n) = the denominator of the continued fraction [1;floor(n/(n-1)),floor(n/(n-2)),...,floor(n/1)].

1, 2, 4, 13, 27, 107, 197, 691, 1745, 5716, 10126, 55634, 97532, 293694, 851363, 3209923, 5516821, 25655598, 43801187, 194256443, 522900074, 1451913673, 2455573078, 15955207491, 33005125266, 89673108924, 231135972059

Offset

1,2

Links

Table of n, a(n) for n=1..27.

Mathematica

Table[Denominator[FromContinuedFraction[Table[Floor[n/(n-i)], {i, 0, n-1}]]], {n, 1, 30}] (* Stefan Steinerberger, May 05 2007 *)

Crossrefs

Cf. A128599, A128600.

Sequence in context: A153936 A027301 A153933 * A034500 A261455 A077325

Adjacent sequences: A128598 A128599 A128600 * A128602 A128603 A128604

Keyword

frac,nonn

Author

Leroy Quet, Mar 12 2007

Extensions

More terms from Stefan Steinerberger, May 05 2007

Status

approved