Search: id:A128600 Results 1-1 of 1 results found. %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, Home Page (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 Search completed in 0.001 seconds