A007940 Noncubes such that some permutation of digits is a cube.

10, 46, 72, 80, 100, 126, 152, 162, 207, 215, 251, 261, 270, 279, 297, 334, 406, 433, 460, 521, 604, 612, 621, 640, 702, 720, 792, 800, 927, 972, 1025, 1026, 1052, 1062, 1133, 1205, 1206, 1250, 1260, 1269, 1278, 1279, 1287, 1296, 1297, 1313, 1349, 1394, 1439

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

F. Smarandache, Only Problems, Not Solutions!

Mathematica

Select[Range[1500], !IntegerQ[CubeRoot[#]]&&AnyTrue[CubeRoot[FromDigits/@Rest[Permutations[IntegerDigits[#]]]], IntegerQ]&] (* Harvey P. Dale, Nov 17 2025 *)

Crossrefs

Sequence in context: A350319 A279092 A007941 * A380913 A082604 A281550

Adjacent sequences: A007937 A007938 A007939 * A007941 A007942 A007943

Keyword

nonn,base

Author

R. Muller

Status

approved