This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A059102 #7 Sep 13 2024 20:16:29
%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.
%K A059102 nonn
%O A059102 1,2
%A A059102 _Hans Havermann_, Feb 13 2001