%I #15 Aug 10 2020 13:17:58
%S 1,1,1,5,5,5,5,5,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,
%T 10,10,10,10,10,10,10,10,10,10,10,10,10,10,50,50,50,50,50,50,50,50,50,
%U 50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50,50
%N Largest digit of n in Roman numeral representation.
%H Nathaniel Johnston, <a href="/A094636/b094636.txt">Table of n, a(n) for n = 1..3999</a>
%H Stephanus Gibbs, <a href="http://www.softhawkway.com/rcalc.htm">Roman Numeral and Date Conversion</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/RomanNumerals.html">Roman Numerals</a>
%e I,I,I,V,V,V,V,V,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X,X, ...
%p A094636 := proc(n) local j,r,s: r:=convert(n, roman): s:=[]: for j from 1 to length(r) do s:=[op(s),convert(r[j],arabic)]: od: return max(op(s)): end: seq(A094636(n), n=1..100); # _Nathaniel Johnston_, May 18 2011
%Y Cf. A054055, A094635.
%K nonn,easy,base
%O 1,4
%A _Reinhard Zumkeller_, May 17 2004