%I A036746
%S A036746 1,2,3,8,18,28,38,88,188,288,388,888,1888,2888,3888
%N A036746 Numbers with "long" representations in Roman notation: given by last 
               n letters from ...MMMDCCCLXXXVIII.
%H A036746 Gerard Schildberger, <a href="a006968.txt"> The first 3999 numbers in 
               Roman numerals</a>.
%t A036746 (* go to the hyper link and assing the 3999 Roman numerals to the variable 
               'lst' so that lst = {I, II, III, ... MMMCMXCVII, MMMCMXCVIII, MMMCMXCIX} 
               and then *) f[1] = 1; f[n_] := Block[{k = 2}, While[ StringLength@ 
               SymbolName@ lst[[k]] != n, k++ ]; k]; Array[f, 15] - Checked by Robert 
               G. Wilson v (rgwv(AT)rgwv.com), Aug 13 2008
%Y A036746 Sequence in context: A009207 A096254 A091765 this_sequence A129955 A034066 
               A034076
%Y A036746 Adjacent sequences: A036743 A036744 A036745 this_sequence A036747 A036748 
               A036749
%K A036746 nonn,base
%O A036746 1,2
%A A036746 John Conway (conway(AT)math.princeton.edu)
%E A036746 Checked by Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 13 2008