Yes, amend is way faster. Thanks for the tip. Primes < 200000:
\t (0<)#&1<{@[@[x;&n#~!p;1];p:*&~x;2]}/:2>!n:200000
1716
\t (0<)#&1<{x|(p=!n)+n#~!p:*&~x}/:2>!n:200000
7079
\t (0<)#&1<{@[@[x;&n#~!p;1];p:*&~x;2]}/:2>!n:200000
1716
\t (0<)#&1<{x|(p=!n)+n#~!p:*&~x}/:2>!n:200000
7079