Created HappyNumbers in Prolog