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
Links
- Paul Tek, Table of n, a(n) for n = 0..10000
- Eric Weisstein's World of Mathematics, Champernowne Constant
Programs
-
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 *)
Comments