A036786 Length of Roman notation for n < length of decimal representation.

10, 50, 100, 101, 105, 110, 150, 200, 400, 500, 501, 505, 510, 550, 600, 900, 1000, 1001, 1002, 1004, 1005, 1006, 1009, 1010, 1011, 1015, 1020, 1040, 1050, 1051, 1055, 1060, 1090, 1100, 1101, 1105, 1110, 1150, 1200, 1400, 1500, 1501, 1505, 1510, 1550

Offset

1,1

Links

Nathaniel Johnston, Table of n, a(n) for n = 1..55 (complete up to 3999)

Formula

A006968(a(n)) < A055642(a(n)). - Reinhard Zumkeller, Apr 20 2013

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

Cf. A036787, A036788.

Sequence in context: A061861 A243226 A283237 * A085444 A102915 A153780

Adjacent sequences: A036783 A036784 A036785 * A036787 A036788 A036789

Keyword

nonn,nice,easy,base

Author

J. H. Conway

Extensions

Corrected by Larry Reeves (larryr(AT)acm.org), Sep 25 2000

Status

approved