A059102 Number of terms of the fractional part of A030168 for which the geometric mean produces increasingly better approximations to Khinchin's constant.
1, 9, 10, 12, 13, 26, 48, 49, 51, 65, 66, 67, 1330, 1331, 1332, 1336, 1337, 1338, 1339, 1340, 1431, 5666, 10331, 537086, 537095, 538045, 576768, 576789
Offset: 1
Keywords
Examples
The geometric mean of 67 terms (Khinchin + 0.0128639) is not bettered until we calculate the geometric mean of 1330 terms (Khinchin + 0.011153).
Formula
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
Comments