友愛数を求めるプログラム