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,1

Comments

In this sequence Roman numerals are limited to k <= 3999. - Sean A. Irvine, Dec 04 2022

Links

Maxim Skorohodov, Table of n, a(n) for n = 1..3999

Mathematica

A003588full = FromRomanNumeral[SortBy[RomanNumeral[Range[3999]], StringLength]];
A003588full[[;; 100]] (* Paolo Xausa, Mar 19 2024 *)

Prog

(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

Crossrefs

Cf. A003587, A006968, A061493, A036746.

Sequence in context: A290654 A017642 A093004 * A115695 A250700 A250846

Adjacent sequences: A003585 A003586 A003587 * A003589 A003590 A003591

Keyword

nonn,base,fini,full,look

Author

N. J. A. Sloane, J. H. Conway and John Jackson (ab158(AT)freenet.uchsc.edu)

Extensions

Corrected, edited and extended by M. F. Hasler, Jan 12 2015

Status

approved