|
|
A003588
|
|
Roman numerals with 1 letter, in alphabetical order; then those with 2 letters, etc.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
In this sequence Roman numerals are limited to k <= 3999. - Sean A. Irvine, Dec 04 2022
|
|
LINKS
|
|
|
MATHEMATICA
|
A003588full = FromRomanNumeral[SortBy[RomanNumeral[Range[3999]], StringLength]];
|
|
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
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|