allocate mem(2^28) p = Set([]) pq = Set([]) pqr = Set([]) u = 9 { for (n=1, 10 000, o = prime(n+1); p = set union(p, Set([ o])); pq = set union(pq, Set(vector(#p, i, p [i] + o))); pqr = set union(pqr, Set(vector(#pq, i, pq[i] + o))); while (set search(pqr, u), u += 2); print (n " " u-2); ); } quit