g[n_,b_]:=映射[Total,GatherBy[Differences[IntegerDigits[n,b]],Sign]];
x[n_,b_]:=选择[g[n,b],#<0&];y[n_,b_]:=选择[g[n,b],#>0&];
b=8;z=2000;p=表格[x[n,b],{n,1,z}];q=表[y[n,b],{n,1,z}];
w=符号[压扁[p/.{}->{0}]+压扁[q/.{}->{0}];
取[Flatten[Position[w,-1]],120](*A297264型*)
取[Flatten[Position[w,0]],120](*A297265型*)
取[Flatten[Position[w,1]],120](*A297266型*)
|