OFFSET
1,5
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..3999
Stephanus Gibbs, Roman Numeral and Date Conversion
Eric Weisstein's World of Mathematics, Roman Numerals
EXAMPLE
n=42 == XLII -> X == a(42)=10.
MAPLE
A093704 := proc(n) return convert(convert(n, roman)[1], arabic): end: seq(A093704(n), n=1..100); # Nathaniel Johnston, May 18 2011
MATHEMATICA
FromDigits[StringTake[IntegerString[Range[70], "Roman"], 1], "Roman"] (* Harvey P. Dale, Oct 10 2012 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Reinhard Zumkeller, May 17 2004
STATUS
approved