{ 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