OFFSET
1,2
COMMENTS
A002963(a(n)) = n. - Reinhard Zumkeller, Apr 14 2013
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Roman Numerals
Wikipedia, Roman numerals
MATHEMATICA
DeleteDuplicates[Table[{n, Total[Characters[RomanNumeral[n]]/.{"L"->2, "X"->2, "V"->2, "I"->1, "M"->4, "C"->2, "D"->3}]}, {n, 4000}], GreaterEqual[#1[[2]], #2[[2]]]&][[;; , 1]] (* Harvey P. Dale, Jan 19 2025 *)
PROG
(Haskell)
a002964 = (+ 1) . fromJust . (`elemIndex` (map a002963 [1..3888]))
-- Reinhard Zumkeller, Apr 14 2013
CROSSREFS
KEYWORD
base,nonn,nice
AUTHOR
EXTENSIONS
More terms from Erich Friedman
For n>13: data corrected and completed up to A002963(3888)=34 by Reinhard Zumkeller, Apr 14 2013
STATUS
approved