cp's OEIS Frontend

A036742 Numbers <= 3999 sorted in Roman numeral lexicographic order.

%I A036742 #35 Aug 18 2025 10:23:18
%S A036742 100,200,300,301,302,303,304,309,350,351,352,353,354,359,355,356,357,
%T A036742 358,360,361,362,363,364,369,365,366,367,368,370,371,372,373,374,379,
%U A036742 375,376,377,378,380,381,382,383,384,389,385,386,387,388,305,306,307
%N A036742 Numbers <= 3999 sorted in Roman numeral lexicographic order.
%C A036742 Beyond 3999 the numerals are not representable in ASCII and hence sorting becomes problematic. - Steven N. Severinghaus, Nov 17 2007
%H A036742 Steven N. Severinghaus, <a href="/A036742/b036742.txt">Table of n, a(n) for n = 1..3999</a>
%p A036742 A036742 := sort([seq(convert(n, roman), n=1..3999)], lexorder): seq(convert(A036742[n], arabic), n=1..51); # _Nathaniel Johnston_, May 18 2011
%t A036742 FromRomanNumeral[Sort[RomanNumeral[Range[3999]]]] (* _Hans Havermann_, May 06 2019; requires Mathematica 10.2+ *)
%o A036742 (Perl)
%o A036742 #!/bin/bash
%o A036742 # Requires Roman module:
%o A036742 # http://search.cpan.org/~chorny/Roman-1.20/lib/Roman.pm
%o A036742 perl -e 'use Roman; for(1..3999) { print roman($_)."
%o A036742 "; }' | sort | perl -ne 'use Roman; chomp; print arabic($_)."
%o A036742 "'
%o A036742 # Steven N. Severinghaus, Nov 17 2007
%o A036742 (Python)
%o A036742 import roman
%o A036742 A36742=sorted(range(1,4000), key=roman.toRoman)
%o A036742 def A036742(n): return A36742[n-1] # _M. F. Hasler_, Aug 16 2025
%Y A036742 Cf. A006968, A036741, A036743.
%K A036742 nonn,easy,base,look,fini,full
%O A036742 1,1
%A A036742 _David W. Wilson_