login
A007939
Some permutation of digits is a cube.
1
1, 8, 10, 27, 46, 64, 72, 80, 100, 125, 126, 152, 162, 207, 215, 216, 251, 261, 270, 279, 297, 334, 343, 406, 433, 460, 512, 521, 604, 612, 621, 640, 702, 720, 729, 792, 800, 927, 972, 1000, 1025, 1026, 1052, 1062, 1133, 1205, 1206, 1250, 1260, 1269, 1278
OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[1000], AnyTrue[CubeRoot[FromDigits/@Permutations[IntegerDigits[#]]], IntegerQ]&] (* Harvey P. Dale, May 13 2023 *)
CROSSREFS
Sequence in context: A096516 A024869 A108940 * A212767 A126807 A230110
KEYWORD
nonn,base
AUTHOR
R. Muller
EXTENSIONS
More terms from Harvey P. Dale, May 13 2023
STATUS
approved