login
A035131
Cubes that when digits rotated left once remain cubic.
2
1, 8, 512, 95443993
OFFSET
1,2
COMMENTS
Those resulting in leading zeros excluded.
LINKS
Eric Weisstein's World of Mathematics, Cubic Number
EXAMPLE
8^3 = 512 and 125 = 5^3.
MATHEMATICA
Select[Range[500]^3, (d = RotateLeft @ IntegerDigits[#])[[1]] > 0 && IntegerQ @ Surd[FromDigits @ d, 3] &] (* Amiram Eldar, Oct 08 2019 *)
CROSSREFS
KEYWORD
nonn,base,hard
AUTHOR
Patrick De Geest, Nov 15 1998
STATUS
approved