Calculate to how many cubes one cube can be cut
Mathematica, 62 bytes (or 52)

It's hardcoded answer, nothing interesting.


  If[EvenQ@BitShiftRight[164015534735101,n],Print@n]~Do~{n,1000}


This one is 52 bytes long but violates my rules - it uses large integers (powers of 2) and lists (Range).


  Select[Range@1000,EvenQ@Floor[164015534735101/2^#]&amp;]