準友愛数の定義式、
σ(m)=σ(n)=m+n+1
のバリエーションとして、
σ(m)=σ(n)=m+n−1
で定義される2数m、nを拡大友愛数(augumented amicable number)という。
1010以下の拡大友愛数を求めてみよう。
プログラムは準友愛数のプログラムでσ(m)、σ(n)を求めている部分、
30 N=fnSigma(M)-M-1:if N<=M then 50 40 R=fnSigma(N)-N-1:if R=M then print M,N
を定義に従い、
30 N=fnSigma(M)-M+1:if N<=M then 50 40 R=fnSigma(N)-N+1:if R=M then print M,N
と変えるだけである。
小さい方が 1010以下の拡大友愛数の組はこちら。
420組ある。
前 | この章の目次 | 次 |
---|