OFFSET
1,2
COMMENTS
EXAMPLE
Base-5 digits of 5000: 1,3,0,0,0,0, so that 5000is in the sequence.
MATHEMATICA
a[n_, b_] := Sign[Differences[IntegerDigits[n, b]]]; z = 300;
b = 5; t = Table[a[n, b], {n, 1, 10*z}];
u = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == 1 &] (* A297131 *)
v = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == -1 &] (* A297132 *)
Complement[Range[z], Union[u, v]] (* A297133 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Clark Kimberling, Jan 14 2018
STATUS
approved