perfect number in recursive function way