%I #24 Jan 14 2024 06:54:14
%S 1,2,3,15,23,26,81,104,109,111,120,127,135,136,141,142,144,145,146,
%T 147,148,5920,5943,8381,8401,89953,91368
%N Number of terms (excluding the first) of A002211 for which the geometric mean produces progressively better approximations to Khinchin's constant (itself).
%H Hans Havermann, <a href="http://chesswanks.com/pxp/cfk.html">Simple Continued Fraction Expansion of Khinchin's Constant</a>.
%H Marek Wolf, <a href="http://arxiv.org/abs/1112.2412">Computer experiments with Mersenne primes</a>, arXiv preprint arXiv:1112.2412 [math.NT], 2011.
%t 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 Cf. A002211, A209600.
%K nice,nonn,more
%O 1,2
%A _Hans Havermann_, corrected Jan 12 2001
|