Select Code to Download

use warnings;
use strict;
...
    my $s = sprintf("%b", 2**$_-1);
    print "$_:" . length($s) . "\n";
}

51:51
52:52
...
64:64 *
65:64 *
66:64 *