A031310 Write n in base 10, complement each digit and juxtapose.
8, 7, 6, 5, 4, 3, 2, 1, 0, 8, 9, 8, 8, 8, 7, 8, 6, 8, 5, 8, 4, 8, 3, 8, 2, 8, 1, 8, 0, 7, 9, 7, 8, 7, 7, 7, 6, 7, 5, 7, 4, 7, 3, 7, 2, 7, 1, 7, 0, 6, 9, 6, 8, 6, 7, 6, 6, 6, 5, 6, 4, 6, 3, 6, 2, 6, 1, 6, 0, 5, 9, 5, 8, 5, 7, 5, 6, 5, 5, 5, 4, 5, 3, 5, 2, 5, 1, 5, 0, 4
Offset: 1
Crossrefs
Cf. A033307.
Programs
-
Mathematica
9 - Flatten[ IntegerDigits@ Range@ 50] (* Robert G. Wilson v, Jul 01 2014 *)
Comments