|
%I #7 Nov 02 2013 08:06:13
%S 0,11,106,1001,10002,13525,129389
%N Smallest missing number in first 10^n digits after the decimal point in expansion of Euler's constant (or Euler-Mascheroni constant) gamma.
%e a(1) = 0 because number 0 is missing in first 10^1 = 10 digits after decimal point in expansion of Euler's constant, that is, 0.5772156649....
%t Do[With[{r = ToString[FromDigits[Rest[RealDigits[EulerGamma, 10, 10^k][[1]]]]]}, Do[If[StringPosition[r, ToString[n]] == {}, Print[n]; k = k + 1; Break[]], {n, 0, 10000000}]], {k, 1, 7}]
%Y Cf. A001620.
%K nonn,base,more
%O 1,2
%A _Shyam Sunder Gupta_, Sep 12 2013
|
