|
%I #14 Feb 17 2020 17:10:21
%S 9,42,1799,494,5760
%N First occurrence of n consecutive n's in the decimal expansion of Khinchin's constant.
%C Earls sequence for Khinchin.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/EarlsSequence.html">Earls Sequence</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/KhinchinsConstantDigits.html">Khinchin's Constant Digits</a>
%e 1 first occurs at position 9 after the decimal point.
%e 22 first occurs starting at position 42.
%e 333 first occurs starting at position 1799.
%t With[{k=RealDigits[Khinchin,10,6000][[1]]},Flatten[Table[ SequencePosition[ k,PadRight[{},n,n],1][[All,1]],{n,5}]]]-1 (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Feb 17 2020 *)
%Y Cf. A002210 (decimal expansion of Khinchin's constant).
%K nonn,base,hard,more
%O 1,1
%A _Eric W. Weisstein_, Jul 21 2013
|
