OFFSET
1,2
COMMENTS
Differs from A044819 first for 513 = 1001_8, which has two consecutive equal digits and is in this sequence, but has two runs of equal length (1), and is not in A044819. - R. J. Mathar, Jan 17 2018
EXAMPLE
Base-8 digits of 5000: 1,1,6,1,0, so that 5000 is in the sequence.
MAPLE
read("transforms") :
isA297142 := proc(n)
local dgs, ud;
dgs := convert(n, base, 8) ;
if nops(dgs) < 2 then
return true;
end if;
if 0 in DIFF(dgs) then
true;
else
false;
end if;
end proc:
for n from 1 to 300 do
if isA297142(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Jan 18 2018
MATHEMATICA
a[n_, b_] := Sign[Differences[IntegerDigits[n, b]]]; z = 300;
b = 8; t = Table[a[n, b], {n, 1, 10*z}];
u = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == 1 &] (* A297140 *)
v = Select[Range[z], ! MemberQ[t[[#]], 0] && First[t[[#]]] == -1 &] (* A297141 *)
Complement[Range[z], Union[u, v]] (* A297142 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Clark Kimberling, Jan 15 2018
STATUS
approved