/ lazy primes - fake it with cache to P

P:,2;p:{while[~x<#P;n:1+*|P;while[~&/n!'P@&~n<P*P;n+:1];P,:n];P x}