A262581
Concatenation of the numbers from 1 to n but omitting 11.
Original entry on oeis.org
1, 12, 123, 1234, 12345, 123456, 1234567, 12345678, 123456789, 12345678910, 1234567891012, 123456789101213, 12345678910121314, 1234567891012131415, 123456789101213141516, 12345678910121314151617, 1234567891012131415161718, 123456789101213141516171819, 12345678910121314151617181920
Offset: 1
See
A262300 for more about this problem.
-
DeleteDuplicates[Table[FromDigits[Flatten[IntegerDigits[Complement[Range[n], {11}]]]], {n, 20}]] (* Robert Price, Nov 05 2018 *)
-
terms(n) = my(s="", i=0); for(k=1, n, if(k!=11, s=concat(s, Str(k)); print1(eval(s), ", "); i++); if(i==n, break))
/* Print initial 20 terms as follows */
terms(20) \\ Felix Fröhlich, Nov 05 2018
A262573
Concatenation of the numbers from 1 to n but omitting 3.
Original entry on oeis.org
1, 12, 124, 1245, 12456, 124567, 1245678, 12456789, 1245678910, 124567891011, 12456789101112, 1245678910111213, 124567891011121314, 12456789101112131415, 1245678910111213141516, 124567891011121314151617, 12456789101112131415161718, 1245678910111213141516171819, 124567891011121314151617181920
Offset: 1
See
A262300 for more about this problem.
-
DeleteDuplicates[Table[FromDigits[Flatten[IntegerDigits[Complement[Range[n], {3}]]]], {n, 20}]] (* Robert Price, Nov 05 2018 *)
Join[{1,12},Table[FromDigits[Join[{1,2},Flatten[IntegerDigits/@Range[4,n]]]],{n,4,20}]] (* Harvey P. Dale, Sep 17 2019 *)
A262574
Concatenation of the numbers from 1 to n but omitting 4.
Original entry on oeis.org
1, 12, 123, 1235, 12356, 123567, 1235678, 12356789, 1235678910, 123567891011, 12356789101112, 1235678910111213, 123567891011121314, 12356789101112131415, 1235678910111213141516, 123567891011121314151617, 12356789101112131415161718, 1235678910111213141516171819, 123567891011121314151617181920
Offset: 1
See
A262300 for more about this problem.
-
DeleteDuplicates[Table[FromDigits[Flatten[IntegerDigits[Complement[Range[n], {4}]]]], {n, 20}]] (* Robert Price, Nov 05 2018 *)
A262576
Concatenation of the numbers from 1 to n but omitting 6.
Original entry on oeis.org
1, 12, 123, 1234, 12345, 123457, 1234578, 12345789, 1234578910, 123457891011, 12345789101112, 1234578910111213, 123457891011121314, 12345789101112131415, 1234578910111213141516, 123457891011121314151617, 12345789101112131415161718, 1234578910111213141516171819, 123457891011121314151617181920
Offset: 1
See
A262300 for more about this problem.
-
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 *)
A262577
Concatenation of the numbers from 1 to n but omitting 7.
Original entry on oeis.org
1, 12, 123, 1234, 12345, 123456, 1234568, 12345689, 1234568910, 123456891011, 12345689101112, 1234568910111213, 123456891011121314, 12345689101112131415, 1234568910111213141516, 123456891011121314151617, 12345689101112131415161718, 1234568910111213141516171819, 123456891011121314151617181920
Offset: 1
See
A262300 for more about this problem.
-
DeleteDuplicates@ Table[If[n >= 7, FromDigits@ Delete[Flatten[IntegerDigits /@ Range[n + 1]], 7], FromDigits@ Flatten[IntegerDigits /@ Range@ n]], {n, 19}] (* Michael De Vlieger, Oct 13 2015 *)
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