OFFSET
1,2
COMMENTS
Next term > 3307254.
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
EXAMPLE
The geometric mean of 67 terms (Khinchin + 0.0128639) is not bettered until we calculate the geometric mean of 1330 terms (Khinchin + 0.011153).
CROSSREFS
KEYWORD
nonn
AUTHOR
Hans Havermann, Feb 13 2001
STATUS
approved