%I #30 Mar 19 2024 17:21:39
%S 100,500,1,50,1000,5,10,200,400,101,150,900,105,110,600,501,550,505,
%T 510,2,4,9,51,55,60,1100,1500,1001,1050,2000,1005,1010,6,90,11,40,15,
%U 20,300,201,250,205,210,401,450,405,410,102,104,109,151,155,160,901,950,905,910,106
%N Roman numerals with 1 letter, in alphabetical order; then those with 2 letters, etc.
%C In this sequence Roman numerals are limited to k <= 3999. - _Sean A. Irvine_, Dec 04 2022
%H Maxim Skorohodov, <a href="/A003588/b003588.txt">Table of n, a(n) for n = 1..3999</a>
%t A003588full = FromRomanNumeral[SortBy[RomanNumeral[Range[3999]], StringLength]];
%t A003588full[[;;100]] (* _Paolo Xausa_, Mar 19 2024 *)
%o (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
%Y Cf. A003587, A006968, A061493, A036746.
%K nonn,base,fini,full,look
%O 1,1
%A _N. J. A. Sloane_, _J. H. Conway_ and John Jackson (ab158(AT)freenet.uchsc.edu)
%E Corrected, edited and extended by _M. F. Hasler_, Jan 12 2015