{
	m = 0;
	for (n=1, 141,
		if (n==1, r=[1],
		    n==2, r=[1,2],
				  \\ forbidden values
				  x = setbinop((vv,vvv)->2*vv-vvv, rr, rrr);
				  r=vector(n);
				  k=0;
				  for (v=1, oo,
						if (!setsearch(x, v),
							r[k++] = v;
							if (k==#r,
								break;
							);
						);
				  );
		);

		apply (v -> print (m++ " " v), r);
		
		[rrr,rr]=[rr,r];
	);
}

quit