A262578
Concatenation of the numbers from 1 to n but omitting 8.
Original entry on oeis.org
1, 12, 123, 1234, 12345, 123456, 1234567, 12345679, 1234567910, 123456791011, 12345679101112, 1234567910111213, 123456791011121314, 12345679101112131415, 1234567910111213141516, 123456791011121314151617, 12345679101112131415161718, 1234567910111213141516171819, 123456791011121314151617181920
Offset: 1
See
A262300 for more about this problem.
-
Module[{nn=30, c}, c=Drop[Range[nn], {8}]; Table[FromDigits[Flatten[IntegerDigits/@Take[c, n]]], {n, nn-1}]] (* Vincenzo Librandi, Nov 05 2018 *)
A262579
Concatenation of the numbers from 1 to n but omitting 9.
Original entry on oeis.org
1, 12, 123, 1234, 12345, 123456, 1234567, 12345678, 1234567810, 123456781011, 12345678101112, 1234567810111213, 123456781011121314, 12345678101112131415, 1234567810111213141516, 123456781011121314151617, 12345678101112131415161718, 1234567810111213141516171819, 123456781011121314151617181920
Offset: 1
See
A262300 for more about this problem.
-
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 *)
A262580
Concatenation of the numbers from 1 to n but omitting 10.
Original entry on oeis.org
1, 12, 123, 1234, 12345, 123456, 1234567, 12345678, 123456789, 12345678911, 1234567891112, 123456789111213, 12345678911121314, 1234567891112131415, 123456789111213141516, 12345678911121314151617, 1234567891112131415161718, 123456789111213141516171819, 12345678911121314151617181920
Offset: 1
See
A262300 for more about this problem.
-
DeleteDuplicates[Table[FromDigits[Flatten[IntegerDigits[Complement[Range[n], {10}]]]], {n, 20}]] (* Robert Price, Nov 05 2018 *)
Comments