sub calcMagic
{
    my ($n) = @_;
    my $m   = -1;
    my $mod = 1;

    for(1..$n)
    {
        $mod += $m;
        $m = nextMagic($m);
    }
    return $mod;
}