A229197 Beginning position of n in the decimal expansion of log(10).
3, 21, 1, 2, 13, 5, 17, 22, 6, 9, 41, 40, 322, 368, 25, 266, 154, 21, 398, 103, 35, 236, 112, 1, 79, 4, 70, 60, 48, 10, 2, 190, 59, 57, 101, 77, 32, 178, 700, 197, 13, 102, 34, 31, 253, 15, 28, 251, 44, 277, 7
Offset: 0
Links
- Eric W. Weisstein, Table of n, a(n) for n = 0..999
- Eric Weisstein's World of Mathematics, Constant Digit Scanning
- Eric Weisstein's World of Mathematics, Natural Logarithm of 10 Digits
Crossrefs
Cf. A002392 (decimal expansion of log(10)).
Programs
-
Mathematica
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 *)