Select Code to Download

perl -e 'for my $i (1..63) {if(int(log(2**($i-1))/log(2)) != $i-1) {pr
+int "$i\n"}}'

for my $i (1..63) {
    if(length(sprintf("%b",2**$i-1)) != length(sprintf("%b",2**($i-1))
+)) {
...
    printf("%b\n",(2**$i)-1);
    }
}