big = 1 000 000
s = 0
S = []
unseen = 1
seen(v) = if (v < big, bittest(s, v), setsearch(S, v))
see(v) = if (v < big, s = bitor(s, 2^v), S = setunion(S, [v])); while (seen(unseen), unseen++)

{
	m = 0;
	b = vector(141);
	for (d = 1, #b,
		for (k = 1, d,
			n = d+1-k;
			i = k;
			if (b[i]==0,
				b[i] = unseen;
			);

			while (seen(b[i]),
				b[i] += i;
			);

			see(b[i]);
			print (m++ " " b[i]);
		);
	);
}

quit