# To get B terms of A140100, A140101, A140102, A140103
B:=200; MMM:=5*B; MMM2:=B;
indx:=Array(1..MMM,0); indy:=Array(1..MMM,0);
indypx:=Array(1..MMM,0); indymx:=Array(1..MMM,0);
lisx[1]:=1; lisy[1]:=2; lisypx[1]:=3; lisymx[1]:=1;
indx[1]:=1; indy[2]:=1; indypx[3]:=1; indymx[1]:=1;
mexxy:=3; mex2:=2;
for n from 2 to MMM2 do 
x:=mexxy; d:=mex2; y:=x+d;
indx[x]:=1; indy[y]:=1;
indypx[y+x]:=1; indymx[d]:=1;
lisx[n]:=x; lisy[n]:=y;
lisypx[n]:=y+x; lisymx[n]:=d;
# update mexxy and mex2
	mytry:=mexxy+1;
for i from 1 to MMM while indx[mytry]=1 or indy[mytry]=1 do mytry:=mytry+1; od: 
	mexxy:=mytry; 
	mytry:=mex2+1;
for i from 1 to MMM while indypx[mytry]=1 or indymx[mytry]=1 do mytry:=mytry+1; od: 
	mex2:=mytry; 
od:      # od n

[seq(indx[i],i=1..MMM2)];
[seq(indy[i],i=1..MMM2)];
[seq(indypx[i],i=1..MMM2)];
[seq(indymx[i],i=1..MMM2)];
[seq(lisx[i],i=1..MMM2)]; # A140100
[seq(lisy[i],i=1..MMM2)]; # A140101
[seq(lisymx[i],i=1..MMM2)]; # A140102
[seq(lisypx[i],i=1..MMM2)]; # A140103