Metadrome

Author

Eric W. Weisstein
January 15, 2006

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/Metadrome.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Metadrome.html.

©2006 Wolfram Research, Inc. except for portions noted otherwise

Code

MetadromeQ[n_]:=Module[{d=IntegerDigits[n,16]},
OrderedQ[d]&&And@@UnsameQ@@@Partition[d,2,1]
]

Enumeration

Metadromes

Select[Range[100],MetadromeQ]

BaseForm[#,16]&/@%

Not Metadromes = Nialpdromes

Select[Range[100],!MetadromeQ[#]&]

BaseForm[#,16]&/@%