{ lim = 242881; abc = 0; for (c=1, oo, hasb = 0; for (b=c+1, oo, hasa = 0; for (a=b+1, oo, n = (a*b+1)*(a*c+1); if (n>lim, break, hasa = 1; abc = bitor(abc, 2^n); ); ); if (!hasa, break, hasb = 1 ); ); if (!hasb, break ); ); for (n=1, lim, if (bittest(abc, n), f = factor(n); print (k++ " " f[#f~, 1]); ); ); } quit