A036743 Numbers <= 3999 sorted in Roman numeral reverse lexicographic order.
38, 37, 36, 35, 39, 34, 33, 32, 31, 30, 28, 27, 26, 25, 29, 24, 23, 22, 21, 20, 18, 17, 16, 15, 48, 47, 46, 45, 49, 44, 43, 42, 41, 40, 19, 14, 13, 12, 11, 98, 97, 96, 95, 99, 94, 93, 92, 91, 90, 10, 8, 7, 6, 5, 1038, 1037, 1036, 1035, 1039, 1034, 1033, 1032
Offset: 1
Links
- Nathaniel Johnston, Table of n, a(n) for n = 1..3999 (full sequence)
Crossrefs
Cf. A036742.
Programs
-
Maple
A036743 := sort([seq(convert(n,roman), n=1..3999)], not lexorder): seq(convert(A036743[n], arabic), n=1..62); # Nathaniel Johnston, May 18 2011
-
Mathematica
FromRomanNumeral[ReverseSort[RomanNumeral[Range[3999]]]] (* Paolo Xausa, Aug 18 2025 *)
-
Python
def A036743(n): return A36742[3999-n] # See A036742. - M. F. Hasler, Aug 16 2025