OFFSET
1,1
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..55 (complete up to 3999)
FORMULA
EXAMPLE
1000 = M is shorter in Roman numerals, so 1000 is in this sequence.
MAPLE
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
MATHEMATICA
Select[Range[2000], StringLength[IntegerString[#, "Roman"]]<IntegerLength[ #]&] (* Harvey P. Dale, Feb 10 2015 *)
PROG
(Haskell)
a036786 n = a036786_list !! (n-1)
a036786_list = [x | x <- [1..], a006968 x < a055642 x]
-- Reinhard Zumkeller, Apr 20 2013
CROSSREFS
KEYWORD
nonn,nice,easy,base
AUTHOR
EXTENSIONS
Corrected by Larry Reeves (larryr(AT)acm.org), Sep 25 2000
STATUS
approved