isPrime.prolog correction. Add of happy numbers in Prolog