login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Cubes that when digits rotated left once remain cubic.
2

%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