A001731 a(n) is 9 written in base 10-n.

9, 10, 11, 12, 13, 14, 21, 100, 1001, 111111111

Offset

0,1

Links

Table of n, a(n) for n=0..9.

Mathematica

Append[Array[FromDigits@ IntegerDigits[9, 10 - #] &, 9, 0], FromDigits@ ConstantArray[1, 9]] (* Michael De Vlieger, Feb 02 2022 *)

Prog

(PARI) a(n) = if (n==9, 111111111, fromdigits(digits(9, 10-n), 10)); \\ Michel Marcus, Feb 02 2022

Crossrefs

Cf. A001732, A001733, A001734, A001735, A001736.

Sequence in context: A196108 A181699 A281196 * A268360 A297263 A296704

Adjacent sequences: A001728 A001729 A001730 * A001732 A001733 A001734

Keyword

fini,nonn,base,full

Author

N. J. A. Sloane

Extensions

Corrected by Henry Bottomley, Nov 23 2000

Status

approved