

A105417


Numbers that are pandigital in Roman numerals, using each of the symbols I, V, X, L, C, D and M at least once.


2



1444, 1446, 1447, 1448, 1464, 1466, 1467, 1468, 1474, 1476, 1477, 1478, 1484, 1486, 1487, 1488, 1644, 1646, 1647, 1648, 1664, 1666, 1667, 1668, 1674, 1676, 1677, 1678, 1684, 1686, 1687, 1688, 1744, 1746, 1747, 1748, 1764, 1766, 1767, 1768, 1774, 1776
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Contains A105416. The largest member of this sequence is 3888, MMMDCCCLXXXVIII.
Daniel Forgues, Jul 31 2011 (Start)
There are 192 = 3 * 4^3 pandigital Roman numerals:
3 ways to start: M*, MM*, MMM* (since no Roman numeral stood for 5000)
4 ways for the hundreds: *CD*, *DC*, *DCC*, *DCCC*
4 ways for the decades: *XL*, *LX*, *LXX*, *LXXX*
4 ways for the units: *IV, *VI, *VII, *VIII (End)
A006968(a(n)) >= 7.  Reinhard Zumkeller, Apr 14 2013


LINKS

Nathaniel Johnston, Table of n, a(n) for n = 1..192 (full sequence)


EXAMPLE

a(3) = 1447 because its Roman numeral representation, MCDXLVII, uses each of the symbols V, X, L, C, D and M once and the symbol I twice.


MAPLE

with(StringTools): for n from 1 to 3999 do r:=convert(n, roman): if(Search("I", r) > 0 and Search("V", r) > 0 and Search("X", r) > 0 and Search("L", r) > 0 and Search("C", r) > 0 and Search("D", r) > 0 and Search("M", r) > 0)then printf("%d, ", n): fi: od: # Nathaniel Johnston, May 18 2011


PROG

(Haskell)
import Data.List (nub, sort)
a105417 n = a105417_list !! (n1)
a105417_list = filter ((== "1234567") . sort . nub . show . a061493) [1..3999]
 Reinhard Zumkeller, Apr 14 2013


CROSSREFS

Cf. A061493.
Sequence in context: A252224 A221872 A251842 * A105416 A180465 A031626
Adjacent sequences: A105414 A105415 A105416 * A105418 A105419 A105420


KEYWORD

base,fini,full,easy,nonn


AUTHOR

Robert Happelberg (roberthappelberg(AT)yahoo.com), Apr 06 2005


STATUS

approved



