A178968 Numbers that are represented in Roman numerals by exactly four letters.
8, 13, 17, 22, 24, 26, 29, 31, 35, 42, 44, 46, 49, 53, 57, 62, 64, 66, 69, 71, 75, 80, 92, 94, 96, 99, 103, 107, 112, 114, 116, 119, 121, 125, 130, 141, 145, 152, 154, 156, 159, 161, 165, 170, 191, 195, 202, 204, 206, 209, 211, 215, 220, 240, 251, 255, 260
Offset: 1
Links
- Nathaniel Johnston, Table of n, a(n) for n = 1..215 (complete up to 3999)
Crossrefs
Cf. A142958.
Programs
-
Maple
for n from 1 to 3999 do if(length(convert(n, roman)) = 4)then printf("%d, ", n): fi: od: # Nathaniel Johnston, May 18 2011
-
Mathematica
Select[Range[300],StringLength[RomanNumeral[#]]==4&] (* Harvey P. Dale, Aug 20 2021 *)
Extensions
Extended by Nathaniel Johnston, May 18 2011