%I #11 Aug 09 2017 00:16:11
%S 10,50,100,101,105,110,150,200,400,500,501,505,510,550,600,900,1000,
%T 1001,1002,1004,1005,1006,1009,1010,1011,1015,1020,1040,1050,1051,
%U 1055,1060,1090,1100,1101,1105,1110,1150,1200,1400,1500,1501,1505,1510,1550
%N Length of Roman notation for n < length of decimal representation.
%H Nathaniel Johnston, <a href="/A036786/b036786.txt">Table of n, a(n) for n = 1..55</a> (complete up to 3999)
%F A006968(a(n)) < A055642(a(n)). - _Reinhard Zumkeller_, Apr 20 2013
%e 1000 = M is shorter in Roman numerals, so 1000 is in this sequence.
%p for n from 1 to 3999 do if(length(convert(n,roman)) < length(n))then printf("%d, ",n): fi: od: # _Nathaniel Johnston_, May 18 2011
%t Select[Range[2000],StringLength[IntegerString[#,"Roman"]]<IntegerLength[ #]&] (* _Harvey P. Dale_, Feb 10 2015 *)
%o (Haskell)
%o a036786 n = a036786_list !! (n-1)
%o a036786_list = [x | x <- [1..], a006968 x < a055642 x]
%o -- _Reinhard Zumkeller_, Apr 20 2013
%Y Cf. A036787, A036788.
%K nonn,nice,easy,base
%O 1,1
%A _J. H. Conway_
%E Corrected by Larry Reeves (larryr(AT)acm.org), Sep 25 2000