s = 0; u = 1
as = 0

{
	for (n=1, 10 000,
		v = u;
		if (n>2,
			while (bittest(s, v) || bittest(as, a=abs(2*p-pp-v)),
				v++;
			);
			as += 2^a;
		);

		print (n " " v);

		s += 2^v;
		while (bittest(s, u), u++);

		[pp,p]=[p,v];
	);
}

quit