A093704 Value of initial digit of n in Roman numeral representation.

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

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

Cf. A000030.

Sequence in context: A171372 A083945 A125563 * A271509 A269626 A269268

Adjacent sequences: A093701 A093702 A093703 * A093705 A093706 A093707

Keyword

nonn,easy,base

Author

Reinhard Zumkeller, May 17 2004

Status

approved