{
	Q = vector(1 000);
	q = 0;

	for (n=1, oo,
		attacked = 0;
		for (i=1, q,
			if (#Set(apply(abs, factor(n/Q[i])[,2]~))==1,
				attacked = 1;
				break;
			);
		);
		if (!attacked,
			print (q++ " " Q[q]=n);
			if (q==#Q,
				break;
			);
		);
	);
}

quit