/*********************************************************
Languasco & Zaccagnini, Introduzione alla Crittografia, Hoepli. 
Capitolo 9.5 pag. 262
*********************************************************/

{rep(n) = local s;
          s=0;
          forprime(p=2, n, if(isprime(n-p), s++));
          return(s)}

{gold(n) = local s;
          s = 0;
          for(p=2, n, if(isprime(p) && isprime(n-p), s++));
          return(s)}