|
%I #9 Nov 28 2019 11:41:53
%S 3,21,1,2,13,5,17,22,6,9,41,40,322,368,25,266,154,21,398,103,35,236,
%T 112,1,79,4,70,60,48,10,2,190,59,57,101,77,32,178,700,197,13,102,34,
%U 31,253,15,28,251,44,277,7
%N Beginning position of n in the decimal expansion of log(10).
%H Eric W. Weisstein, <a href="/A229197/b229197.txt">Table of n, a(n) for n = 0..999</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ConstantDigitScanning.html">Constant Digit Scanning</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/NaturalLogarithmof10Digits.html">Natural Logarithm of 10 Digits</a>
%t Module[{d=RealDigits[Log[10],10,1000][[1]]}, Table[SequencePosition[ d, IntegerDigits[ n],1][[All,1]],{n,0,50}]]//Flatten (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 28 2019 *)
%Y Cf. A002392 (decimal expansion of log(10)).
%K nonn,base,less
%O 0,1
%A _Eric W. Weisstein_, Sep 15 2013
|
