|
%I #15 Oct 08 2019 15:08:00
%S 1,8,512,95443993
%N Cubes that when digits rotated left once remain cubic.
%C Those resulting in leading zeros excluded.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CubicNumber.html">Cubic Number</a>
%e 8^3 = 512 and 125 = 5^3.
%t Select[Range[500]^3, (d = RotateLeft @ IntegerDigits[#])[[1]] > 0 && IntegerQ @ Surd[FromDigits @ d, 3] &] (* _Amiram Eldar_, Oct 08 2019 *)
%Y Cf. A035127, A035129, A035130.
%K nonn,base,hard
%O 1,2
%A _Patrick De Geest_, Nov 15 1998
|
