p:primep;sum((sum(?princ(if(a:abs(i),b:abs(j),if a=0then(mod(b,4)=3)and p(b)elseif b=0then(mod(a,4)=3)and p(a)else p(a^2+b^2))then"[]"else"  "),i,-23,23),newline()),j,-23,23);