OFFSET
1,2
MATHEMATICA
sdQ[n_]:=Module[{s=Sign[Differences[Reverse[IntegerDigits[n, 6]]]]}, s == PadRight[ {}, Length[ s], {-1, 1}]]; Select[Range[200], sdQ] (* Harvey P. Dale, Dec 15 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved