• + 0 comments

    Perl:

    sub utopianTree {
        my $n = shift;
        
        return ($n % 2 == 0) ? (2 ** (($n / 2) + 1)) - 1 : (2 ** ((($n + 1) / 2) + 1)) - 2;
    }