|
|
A128601
|
|
a(n) = the denominator of the continued fraction [1;floor(n/(n-1)),floor(n/(n-2)),...,floor(n/1)].
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[Denominator[FromContinuedFraction[Table[Floor[n/(n-i)], {i, 0, n-1}]]], {n, 1, 30}] (* Stefan Steinerberger, May 05 2007 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
frac,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|