A262582 Concatenation of the numbers from 1 to n but omitting 12.
1, 12, 123, 1234, 12345, 123456, 1234567, 12345678, 123456789, 12345678910, 1234567891011, 123456789101113, 12345678910111314, 1234567891011131415, 123456789101113141516, 12345678910111314151617, 1234567891011131415161718, 123456789101113141516171819, 12345678910111314151617181920
Offset: 1
Programs
-
Mathematica
Module[{nn=30, c}, c=Drop[Range[nn], {12}]; Table[FromDigits[Flatten[IntegerDigits/@Take[c, n]]], {n, nn - 1}]] (* Vincenzo Librandi, Nov 05 2018 *)
Comments