A262579 Concatenation of the numbers from 1 to n but omitting 9.
1, 12, 123, 1234, 12345, 123456, 1234567, 12345678, 1234567810, 123456781011, 12345678101112, 1234567810111213, 123456781011121314, 12345678101112131415, 1234567810111213141516, 123456781011121314151617, 12345678101112131415161718, 1234567810111213141516171819, 123456781011121314151617181920
Offset: 1
Programs
-
Mathematica
DeleteDuplicates[Table[FromDigits[Flatten[IntegerDigits[Complement[Range[n], {9}]]]], {n, 20}]] (* Robert Price, Nov 05 2018 *) Module[{nn=20,c},c=Drop[Range[nn],{9}];Table[FromDigits[Flatten[ IntegerDigits/@ Take[c,n]]],{n,nn-1}]] (* Harvey P. Dale, Nov 30 2019 *)
Comments