A086044 Position of first occurrence of n in concatenated numbers (A033307, Champernowne constant).

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 2, 17, 19, 21, 23, 25, 27, 29, 31, 16, 35, 3, 39, 41, 43, 45, 47, 49, 51, 18, 38, 57, 4, 61, 63, 65, 67, 69, 71, 20, 40, 60, 79, 5, 83, 85, 87, 89, 91, 22, 42, 62, 82, 101, 6, 105, 107, 109, 111, 24, 44, 64, 84, 104, 123, 7, 127

Offset

0,2

Comments

A033307(a(n)) = A000030(n).

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

Cf. A086045, A086048.

Sequence in context: A004907 A004918 A341537 * A257456 A257340 A194974

Adjacent sequences: A086041 A086042 A086043 * A086045 A086046 A086047

Keyword

nonn,base

Author

Reinhard Zumkeller, Jul 07 2003

Status

approved