#Mathematica, (削除) 38 (削除ここまで) 37 bytes
Mathematica, (削除) 38 (削除ここまで) 37 bytes
Tr[1^PowersRepresentations[#,2,3]]>1&
-1 byte thanks to @GregMartin
As always, there is a Mathematica builtin to everything.
#Mathematica, (削除) 38 (削除ここまで) 37 bytes
Tr[1^PowersRepresentations[#,2,3]]>1&
-1 byte thanks to @GregMartin
As always, there is a Mathematica builtin to everything.
Mathematica, (削除) 38 (削除ここまで) 37 bytes
Tr[1^PowersRepresentations[#,2,3]]>1&
-1 byte thanks to @GregMartin
As always, there is a Mathematica builtin to everything.
#Mathematica, (削除) 3938 (削除ここまで) 3837 bytes
Tr[1^PowersRepresentations[#,2,3]]==2&3]]>1&
-1 byte thanks to @GregMartin
As always, there is a Mathematica builtin to everything.
#Mathematica, (削除) 39 (削除ここまで) 38 bytes
Tr[1^PowersRepresentations[#,2,3]]==2&
-1 byte thanks to @GregMartin
As always, there is a Mathematica builtin to everything.
#Mathematica, (削除) 38 (削除ここまで) 37 bytes
Tr[1^PowersRepresentations[#,2,3]]>1&
-1 byte thanks to @GregMartin
As always, there is a Mathematica builtin to everything.
#Mathematica, 39(削除) 39 (削除ここまで) 38 bytes
Length@PowersRepresentations[#Tr[1^PowersRepresentations[#,2,3]==2&3]]==2&
-1 byte thanks to @GregMartin
As always, there is a Mathematica builtin to everything.
#Mathematica, 39 bytes
Length@PowersRepresentations[#,2,3]==2&
As always, there is a Mathematica builtin to everything.
#Mathematica, (削除) 39 (削除ここまで) 38 bytes
Tr[1^PowersRepresentations[#,2,3]]==2&
-1 byte thanks to @GregMartin
As always, there is a Mathematica builtin to everything.