Nialpdrome

Author

Eric W. Weisstein
January 15, 2006

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

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

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

Code

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

Enumeration

Nialpdromes

Select[Range[100],NialpdromeQ]

BaseForm[#,16]&/@%

Not Nialpdromes = Metadromes

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

BaseForm[#,16]&/@%