Roman Numerals

Author

Eric W. Weisstein
April 19, 2024

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Numbers/RomanNumerals.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/RomanNumerals.html.

©2024 Wolfram Research, Inc. except for portions noted otherwise

Examples

TextGrid[Flatten/@Transpose[{
Table[{n,IntegerString[n,"Roman"]},{n,10}],
Table[{n,IntegerString[n,"Roman"]},{n,10,100,10}],
Table[{n,IntegerString[n,"Roman"]},{n,100,1000,100}]
}],Dividers->{{{Thick,True}},{Thick,{True},Thick}}]

Europeanized Notation

RomanNumeral/@Range[100]

RomanNumeral/@Range[950,1050]

Using Overbars and Is (Menninger and Cajori)

Table[i, {i, 77, 7777, 1000}] //RomanNumeralForm

2^40 //RomanNumeralForm

Plots

GraphicsRow[ListStepPlot[StringLength/@RomanNumeral/@Range[#],PlotStyle->Red,
AxesLabel->{n,d[n]},BaseStyle->Directive[12,Black,FontFamily->"Times"]]&/@{20,200,2000},Alignment->Center,ImageSize->Large,Spacings->-10]