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