%I A128600
%S A128600 1,1,2,5,8,27,44,137,305,905,1466,7411,11986,33597,91007,322205,521306,
%T A128600 2292156,3708875,15639101,40100349,106348943,172076807,1071988711,
%U A128600 2129108426,5564227811,13812311521,53326260495,86283685147,492560346093
%N A128600 a(n) = the denominator of the continued fraction [[n/1];[n/2],[n/3],..,
               [n/n]], where [x] is floor(x).
%H A128600 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%p A128600 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
%t A128600 Table[Denominator[FromContinuedFraction[Table[Floor[n/i],{i, 1, n}]]],
               {n,1, 30}] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Jun 02 2007
%Y A128600 Cf. A128599, A128601.
%Y A128600 Sequence in context: A142869 A086825 A093365 this_sequence A066846 A140275 
               A025533
%Y A128600 Adjacent sequences: A128597 A128598 A128599 this_sequence A128601 A128602 
               A128603
%K A128600 frac,nonn
%O A128600 1,3
%A A128600 Leroy Quet Mar 12 2007
%E A128600 More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com) 
               and R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jun 02 2007