Plaindrome

Author

Eric W. Weisstein
January 15, 2006

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

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

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

Code

PlaindromeQ[n_]:=OrderedQ[IntegerDigits[n,16]]

Enumeration

Plaindromes

Select[Range[24],PlaindromeQ]

BaseForm[#,16]&/@%

Not Plaindromes = Katadromes

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

BaseForm[#,16]&/@%