OFFSET
1,3
MATHEMATICA
sdQ[n_]:=Module[{s=Sign[Differences[IntegerDigits[n, 6]]]}, s==PadRight[{}, Length[ s], {-1, 1}]]; Select[Range[0, 200], sdQ] (* Harvey P. Dale, Dec 15 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
a(1)=0 inserted by Georg Fischer, Dec 18 2020
STATUS
approved