login
A093704
Value of initial digit of n in Roman numeral representation.
1
1, 1, 1, 1, 5, 5, 5, 5, 1, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50
OFFSET
1,5
LINKS
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
Cf. A000030.
Sequence in context: A171372 A083945 A125563 * A271509 A269626 A269268
KEYWORD
nonn,easy,base
AUTHOR
Reinhard Zumkeller, May 17 2004
STATUS
approved