4. Augmented amicable numbers

Search program for augmented amicable number

The definition of augmented amicable numbers is,


and the program can be used in trivial change,

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

  There are 420 augmented amicable pairs which smaller number is less than 1010.

previous index

E-mail : kc2h-msm@asahi-net.or.jp
Hisanori Mishima