OFFSET
0,2
LINKS
Paul Tek, Table of n, a(n) for n = 0..10000
Eric Weisstein's World of Mathematics, Champernowne Constant
MATHEMATICA
With[{ch=Flatten[IntegerDigits/@Range[0, 500]]}, Table[ SequencePosition[ ch, IntegerDigits[n], 1][[1]], {n, 0, 70}]][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 07 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Jul 07 2003
STATUS
approved