|
|
A093703
|
|
Numbers whose Roman numeral representation, reversed, is a Roman numeral.
|
|
3
|
|
|
1, 2, 3, 4, 5, 6, 9, 10, 11, 19, 20, 30, 40, 50, 60, 90, 100, 110, 190, 200, 300, 400, 500, 600, 900, 1000, 1100, 1900, 2000, 3000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
A subset of this is A078715, palindromic Roman numerals. These are not "old style" Roman numerals (where 4 = IIII).
The sequence contains only values less than 4000, see A078715 for a discussion of the Roman 4M-problem.
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 1 because Roman(1) = I and Reversal(I) = I, which is Roman.
a(4) = 4 because Roman(4) = IV and Reversal(IV) = VI, which is Roman.
a(10) = 19 because Roman(19) = XIX which is a palindromic Roman numeral.
a(27) = 900 because Roman(900) = CM and Reversal(CM) = MC, which is Roman.
40 == XL -> LX == 60, therefore 40 and 60 are terms.
1999 is not in the sequence because "MIM" is not a well-formed Roman numeral for 1999, although it looks like one; see Schildberger.
|
|
MATHEMATICA
|
Select[Range[3000], RomanNumeral[FromRomanNumeral[#]] == # & [StringReverse[RomanNumeral[#]]] &] (* Paolo Xausa, Mar 03 2024 *)
|
|
PROG
|
(Haskell)
a093703 n = a093703_list !! (n-1)
a093703_list = filter
((`elem` map a061493 [1..3999]) . a004086 . a061493) [1..]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|