OFFSET
1,2
COMMENTS
This first differs from A044817 at position 67: a(67) = 217, A044817(67) = 258. - Robert Israel, Jan 17 2018
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
Base-6 digits of 4996: 3,5,0,4,4, so that 4996 is in the sequence.
MAPLE
filter:= proc(n) local L;
L:= convert(n, base, 6);
nops(L)=1 or member(0, L[2..-1]-L[1..-2])
end proc:
select(filter, [$1..1000]); # Robert Israel, Jan 17 2018
MATHEMATICA
a[n_, b_] := Sign[Differences[IntegerDigits[n, b]]]; z = 300;
b = 6; t = Table[a[n, b], {n, 1, 10*z}];
u = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == 1 &] (* A297134 *)
v = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == -1 &] (* A297135 *)
Complement[Range[z], Union[u, v]] (* A297136 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Clark Kimberling, Jan 14 2018
STATUS
approved