%I A059102
%S A059102 1,9,10,12,13,26,48,49,51,65,66,67,1330,1331,1332,1336,1337,1338,1339,
%T A059102 1340,1431,5666,10331,537086,537095,538045,576768,576789
%N A059102 Number of terms of the fractional part of A030168 for which the geometric 
               mean produces increasingly better approximations to Khinchin's constant.
%C A059102 Next term > 3307254.
%F A059102 p = Drop[{A030168}, 1]; q = N[1, 100]; r = p[[1]] + 1; t = {}; Do[q = 
               q*p[[i]]; g = q^(1/i) - Khinchin; If[Abs[g] < r, r = Abs[g]; t = 
               Append[t, i]], {i, 1, Length[p]}]; t
%e A059102 The geometric mean of 67 terms (Khinchin + 0.0128639) is not bettered 
               until we calculate the geometric mean of 1330 terms (Khinchin + 0.011153).
%Y A059102 Cf. A030168, A048613.
%Y A059102 Sequence in context: A136835 A104627 A119956 this_sequence A120185 A076364 
               A048592
%Y A059102 Adjacent sequences: A059099 A059100 A059101 this_sequence A059103 A059104 
               A059105
%K A059102 cofr,nonn
%O A059102 1,2
%A A059102 Hans Havermann (pxp(AT)rogers.com), Feb 13 2001