A008716 19 in base 19-n.
10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 21, 23, 25, 31, 34, 103, 201, 10011, 1111111111111111111
Offset: 0
Programs
-
Mathematica
Append[Table[FromDigits[IntegerDigits[19, 19 - n]], {n, 0, 17}], FromDigits[Table[1, {19}]]] (* T. D. Noe, Feb 23 2013 *)