OFFSET
0,1
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
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 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Eric W. Weisstein, Sep 15 2013
STATUS
approved