A003588 Roman numerals with 1 letter, in alphabetical order; then those with 2 letters, etc.
100, 500, 1, 50, 1000, 5, 10, 200, 400, 101, 150, 900, 105, 110, 600, 501, 550, 505, 510, 2, 4, 9, 51, 55, 60, 1100, 1500, 1001, 1050, 2000, 1005, 1010, 6, 90, 11, 40, 15, 20, 300, 201, 250, 205, 210, 401, 450, 405, 410, 102, 104, 109, 151, 155, 160, 901, 950, 905, 910, 106
Offset: 1
Links
- Maxim Skorohodov, Table of n, a(n) for n = 1..3999
Programs
-
Mathematica
A003588full = FromRomanNumeral[SortBy[RomanNumeral[Range[3999]], StringLength]]; A003588full[[;;100]] (* Paolo Xausa, Mar 19 2024 *)
-
PARI
(Roman(n,s=Vecsmall("IVXLCDM"))=Strchr(apply(c->s[c-48], Vec(Vecsmall(Str(A061493(n))))))); vecsort(vector(4000,n,[#t=Roman(n),t]),,1)[1..100] \\ M. F. Hasler, Jan 12 2015
Extensions
Corrected, edited and extended by M. F. Hasler, Jan 12 2015
Comments