{ pp = primes(10 000); for (n = 1, #pp, vv = vector(n-1, k, (pp[n]-pp[k])/(n-k)); f = vector(max(1, #s = Set(vv))); for (i = 1, #vv, f[setsearch(s, vv[i])]++; ); print (n " " 1 + vecmax(f)); ); } quit