Help for this page
if ( int(log($v1)/log(2)) == int(log($v2)/log(2)) ) { #match }
$ perl -e 'for my $i (1..63) {if(int(log(2**$i-1)/log(2)) != $i-1) {pr +int "$i\n"}}' 48 ... 61 62 63