From Gossip@caterpillar

Algorithm Gossip: 完美數

說明

如果有一數n，其真因數（Proper factor）的總和等於n，則稱之為完美數（Perfect Number），例如以下幾個數都是完美數：

6 = 1 + 2 + 3
28 = 1 + 2 + 4 + 7 + 14
496 = 1 + 2 + 4 + 8 + 16 + 31 + 62 + 124 + 248

程式基本上不難，第一眼看到時會想到使用迴圈求出所有真因數，再進一步求因數和，不過若n值很大，則此法會花費許多時間在迴圈測試上，十分沒有效率，例如求小於10000的所有完美數。

解法

如何求小於10000的所有完美數？並將程式寫的有效率？基本上有三個步驟：

求出一定數目的質數表
利用質數表求指定數的因式分解
利用因式分解求所有真因數和，並檢查是否為完美數

步驟一與步驟二在之前討論過了，問題在步驟三，如何求真因數和？方法很簡單，要先知道將所有真因數和加上該數本身，會等於該數的兩倍，例如：

2 * 28 = 1 + 2 + 4 + 7 + 14 + 28

等式後面可以化為：

2 * 28 = (2⁰ + 2¹ + 2²) * (7⁰ + 7¹)

所以只要求出因式分解，就可以利用迴圈求得等式後面的值，將該值除以2就是真因數和了；等式後面第一眼看時可能想到使用等比級數公式來解，不過會使用到次方運算，可以在迴圈走訪因式分解陣列時，同時計算出等式後面的值，這在下面的實作中可以看到。

實作

#include <stdio.h> 
#include <stdlib.h> 

#define N 1000 
#define P 10000 

int prime(int*);  // 求質數表 
int factor(int*, int, int*);  // 求factor 
int fsum(int*, int);  // sum ot proper factor 

int main(void) { 
    int ptable[N+1] = {0}; // 儲存質數表 
    int fact[N+1] = {0};   // 儲存因式分解結果 
    int count1, count2, i; 

    count1 = prime(ptable); 

    for(i = 0; i <= P; i++) { 
        count2 = factor(ptable, i, fact); 
        if(i == fsum(fact, count2)) 
            printf("Perfect Number: %d\n", i); 
    } 
    
    printf("\n"); 

    return 0; 
} 

int prime(int* pNum) { 
    int i, j; 
    int prime[N+1]; 

    for(i = 2; i <= N; i++) 
        prime[i] = 1; 

    for(i = 2; i*i <= N; i++) { 
        if(prime[i] == 1) { 
            for(j = 2*i; j <= N; j++) { 
                if(j % i == 0) 
                    prime[j] = 0; 
            } 
        } 
    } 

    for(i = 2, j = 0; i < N; i++) { 
        if(prime[i] == 1) 
            pNum[j++] = i; 
    } 

    return j; 
} 

int factor(int* table, int num, int* frecord) { 
    int i, k; 

    for(i = 0, k = 0; table[i] * table[i] <= num;) { 
        if(num % table[i] == 0) { 
            frecord[k] = table[i]; 
            k++; 
            num /= table[i]; 
        } 
        else 
            i++; 
    } 

    frecord[k] = num; 

    return k+1; 
} 

int fsum(int* farr, int c) { 
    int i, r, s, q; 

    i = 0; 
    r = 1; 
    s = 1; 
    q = 1; 

    while(i < c) { 
        do { 
            r *= farr[i]; 
            q += r; 
            i++; 
        } while(i < c-1 && farr[i-1] == farr[i]); 
        s *= q; 
        r = 1; 
        q = 1; 
    } 

    return s / 2; 
}

Java

import java.util.ArrayList;

public class PerfectNumber {
    public static int[] lessThan(int number) {
        int[] primes = Prime.findPrimes(number);

        ArrayList list = new ArrayList();
        
        for(int i = 1; i <= number; i++) { 
            int[] factors = factor(primes, i); 
            if(i == fsum(factors)) 
                list.add(new Integer(i));
        } 

        int[] p = new int[list.size()];
        Object[] objs = list.toArray(); 
        for(int i = 0; i < p.length; i++) {
            p[i] = ((Integer) objs[i]).intValue();
        }
        
        return p;
    }
    
    private static int[] factor(int[] primes, int number) { 
        int[] frecord = new int[number];
        int k = 0;
        
        for(int i = 0; Math.pow(primes[i], 2) <= number;) { 
            if(number % primes[i] == 0) { 
                frecord[k] = primes[i]; 
                k++; 
                number /= primes[i]; 
            } 
            else 
                i++; 
        } 

        frecord[k] = number; 

        return frecord; 
    } 

    private static int fsum(int[] farr) { 
        int i, r, s, q; 

        i = 0; 
        r = 1; 
        s = 1; 
        q = 1; 

        while(i < farr.length) { 
            do { 
                r *= farr[i]; 
                q += r; 
                i++; 
            } while(i < farr.length - 1 &&
                    farr[i-1] == farr[i]); 
            s *= q; 
            r = 1; 
            q = 1; 
        } 

        return s / 2; 
    }
    
    public static void main(String[] args) {
        int[] pn = PerfectNumber.lessThan(1000);
     
        for(int i = 0; i < pn.length; i++) {
            System.out.print(pn[i] + " ");
        }
        
        System.out.println();
    }
}