Lua亲密数：真因子和的互惠配对

local function aliquot(n)
    local s, i = 1, 2
    while i * i <= n do
        if n % i == 0 then
            s = s + i
            if i ~= n / i then
                s = s + math.floor(n / i)
            end
        end
        i = i + 1
    end
    return s
end

local function isAmicable(a)
    local b = aliquot(a)
    return b ~= a and aliquot(b) == a
end
local p = getplayerbyname("pair01")
sendmsg(p, 1, "220 与 284 互惠："
    .. tostring(isAmicable(220)))