language: AWK (gawk) (gawk-3.1.6)
date: 118 days 13 hours ago
link:
visibility: public
1
BEGIN{b=5e5;q=708;for(i=2;i<q;++i)if(!f[i])for(m=int(b/i);m>=i;--m)f[m*i]=1}NR>1{for(o=i=2;$0-i>=i;++i)if(!f[i]&&!f[$0-i])o+=i;print o-2}