s = 0 unseen = 1 seen(v) = bit test(s, v) see(v) = s = bit or(s, 2^v); while (seen(unseen), unseen++) { v = 1; for (n=1, 10 000, print (n " " v); see(v); v = if (seen(z=sumdigits(v)), v+n, z); ); } quit