The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A105417 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A105417

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

#34 by Joerg Arndt at Thu Jan 25 00:58:02 EST 2024

STATUS

reviewed

approved

#33 by Stefano Spezia at Wed Jan 24 15:48:26 EST 2024

STATUS

proposed

reviewed

#32 by James C. McMahon at Wed Jan 24 10:13:47 EST 2024

STATUS

editing

proposed

#31 by James C. McMahon at Wed Jan 24 10:12:54 EST 2024

MATHEMATICA

Select[Range[900, 1776], ContainsAll[Characters[RomanNumeral[#]], {"M", "C", "D", "X", "L", "I", "V"}]&] (* James C. McMahon, Jan 24 2024 *)

STATUS

approved

editing

#30 by Susanna Cuyler at Tue Jul 10 21:18:43 EDT 2018

STATUS

proposed

approved

#29 by M. F. Hasler at Tue Jul 10 05:19:47 EDT 2018

STATUS

editing

proposed

#28 by M. F. Hasler at Tue Jul 10 05:19:44 EDT 2018

CROSSREFS

Cf. A061493, A105416.

#27 by M. F. Hasler at Tue Jul 10 05:18:27 EDT 2018

PROG

(PARI) A105417=vector(192, i, fromdigits(apply(d->d+5-!d, digits(i+63, 4)))-5000+555) \\ M. F. Hasler, Jul 10 2018

#26 by M. F. Hasler at Tue Jul 10 05:13:59 EDT 2018

COMMENTS

A006968(a(n)) >= 7. - Reinhard Zumkeller, Apr 14 2013

Equivalently, numbers of the form abcd with 1 <= a <= 3 and b,c,d in {4,6,7,8}. - M. F. Hasler, Jul 10 2018

FORMULA

A006968(a(n)) >= 7. - Reinhard Zumkeller, Apr 14 2013

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

A105417 := select(n->nops(convert(convert(n, roman), set))=7, `$`(3888)) # M. F. Hasler, Jul 10 2018

PROG

(PARI) A105417=vector(192, i, fromdigits(apply(d->d+5-!d, digits(i+63, 4)))-5000) \\ M. F. Hasler, Jul 10 2018

STATUS

approved

editing

#25 by Michel Marcus at Sun Mar 01 12:53:19 EST 2015

STATUS

reviewed

approved