残りの部分なしで、より小さな立方体にカットできる立方体を想像してみてください。

立方体をいくつの立方体に切り取ることができるかを調べます。

たとえば、立方体は8、27（明らかに整数の3乗）および20（19の小さい立方体に他の立方体の8倍のサイズを加えたもの、画像を参照）に切り分けることができます。
ここでいくつかのヘルプを参照してください：http : //mathworld.wolfram.com/CubeDissection.html

プログラムは、整数n（0 <= n <= 1 000）を入力として受け取りn、キューブをその数のキューブにカットできるように、以下のすべての数値を出力する必要があります。立方体を1つの立方体にカットでき、0の立方体にカットできないとします。

使用できるのは、64ビット以下のサイズの（配列、オブジェクトなどではなく）整数データ型のみです。最短のコードが勝ちます。

Golfscript、55（または43 42）

{.:^}{.47>20{.^>^@- 7%|!|}:/~1/38/39/{}{;}if^(}while;]`

ここでテストでき（2行目の数値を変更するだけ）、配列（コードの最後の2文字）のみを使用してクリーンな印刷を行います。コレクションや問題解決には使用しません。オフにすると、すべての結果が連結されます。

方法：指定されたnから反復します：現在の数値が47より大きいか、1 + 7x、20 + 7x、38 + 7x、または39 + 7xの形式である場合（xは負でない整数）、スタックに保持します、それ以外の場合はドロップします。

短い回答（43バイト）：

{：/ 6 +、{7 * / +}％|}：＆;）：a、48、^ 1＆20＆38＆39＆{a <}、 `

):a,48,^1{:/6+,{7*/+}%|}:&~20&38&39&{a<},`

方法：同様ですが、いくつかのセット理論の操作があります。これは配列を使用しているので、技術的に許容できる答えではありません。ここでテストできます。ところで：特定の順序である必要があると誰も言ったことはありません;）

Mathematica、62バイト（または52）

それはハードコードされた答えで、興味深いものは何もありません。

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

これは52バイトの長さですが、私の規則に違反しています-大きな整数（2の累乗）とリスト（範囲）を使用しています。

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

C、72

i;main(){for(scanf("%d",&i);i;i--)0x952BD7AF7EFC>>i&1||printf("%d ",i);}

別のハードコーディングされた答え。これは下向きに数えます（数字を出力する順序についてのルールには何もありません）。理論的には機能するはずです。定数は、立方体を切り取ることができないすべての数値に対して1に設定されたビットを持ち、切り取れる数値に対して0を設定します。理論的には、非常に大きな数値で右シフトした場合の定数はゼロであるため、常に大きな数値が出力されます。

興味深いのは、実際にはこれが機能しないことです。上記のコードは、GCCで最大65までコンパイルして正常に実行されます。ただし、この数値を超えると、コンパイラにバグ（または「機能」）が存在します。0x952BD7AF7EFC>>iとして解釈され0x952BD7AF7EFC>>i%64ます。したがって、（たとえば）66から71（64 + 2から64 + 7）までの数字はスキップされます。

Visual Studioで実行するには、もう少しボイラープレートが必要です（暗黙の整数や#includes などの問題を回避することはできません）。プログラムが起動して実行されると、最大257です。その後、258までスキップします。 263（256 + 2から256 + 7まで）。i%256.

私は後でそれを修正するかもしれません（私が気になる可能性がある場合）。それには理由があります！