A262576 Concatenation of the numbers from 1 to n but omitting 6.
1, 12, 123, 1234, 12345, 123457, 1234578, 12345789, 1234578910, 123457891011, 12345789101112, 1234578910111213, 123457891011121314, 12345789101112131415, 1234578910111213141516, 123457891011121314151617, 12345789101112131415161718, 1234578910111213141516171819, 123457891011121314151617181920
Offset: 1
Crossrefs
Programs
-
Mathematica
Module[{nn=20,c},c=Drop[Range[nn],{6}];Table[FromDigits[Flatten[ IntegerDigits/@ Take[c,n]]],{n,nn-1}]] (* Harvey P. Dale, Sep 27 2018 *)
Comments