%%HP: T(3)A(R)F(.);
\<< { (-65.,-31.)
(65.,32.) X 0.
(0.,0.) FUNCTION Y }
'PPAR' STO ERASE {
# 0d # 0d } PVIEW
-65. 65.
  FOR I -31. 32.
    FOR J
      IF I 0. == J
ABS ISPRIME? AND J 3.
- 4. MOD NOT AND J 0.
== I ABS ISPRIME? AND
I 3. - 4. MOD NOT AND
OR I SQ J SQ +
ISPRIME? OR
      THEN I J R\->C
PIXON
      END
    NEXT
  NEXT 7. FREEZE
\>>