%I A048613
%S A048613 1,2,3,15,23,26,81,104,109,111,120,127,135,136,141,142,144,
%T A048613 145,146,147,148,5920,5943,8381,8401,89953,91368
%N A048613 Number of terms (excluding the first) of A002211 for which the geometric 
               mean produces progressively better approximations to Khinchin's constant 
               (itself).
%H A048613 H. Havermann, <a href="http://chesswanks.com/pxp/cfk.html">Simple Continued 
               Fraction Expansion of Khinchin's Constant</a>
%t A048613 g = {computed geometric means minus Khinchin}: pk = 2; t = Table[ If[ 
               Abs[ g[ [ i ] ] ] <= pk, pk = Abs[ g[ [ i ] ] ]; i ], {i, 1, Length[ 
               g ]} ]; Select[ t, NumberQ ]
%Y A048613 Cf. A002211.
%Y A048613 Sequence in context: A101507 A047176 A037175 this_sequence A162890 A030072 
               A064219
%Y A048613 Adjacent sequences: A048610 A048611 A048612 this_sequence A048614 A048615 
               A048616
%K A048613 nice,nonn
%O A048613 1,2
%A A048613 Hans Havermann (pxp(AT)rogers.com) (corrected Jan 12, 2001)