A262578 Concatenation of the numbers from 1 to n but omitting 8.
1, 12, 123, 1234, 12345, 123456, 1234567, 12345679, 1234567910, 123456791011, 12345679101112, 1234567910111213, 123456791011121314, 12345679101112131415, 1234567910111213141516, 123456791011121314151617, 12345679101112131415161718, 1234567910111213141516171819, 123456791011121314151617181920
Offset: 1
Programs
-
Mathematica
Module[{nn=30, c}, c=Drop[Range[nn], {8}]; Table[FromDigits[Flatten[IntegerDigits/@Take[c, n]]], {n, nn-1}]] (* Vincenzo Librandi, Nov 05 2018 *)
Comments