A035131 Cubes that when digits rotated left once remain cubic.

1, 8, 512, 95443993

Offset: 1

Author

Patrick De Geest, Nov 15 1998

Keywords

• nonn
• base
• hard

Comments

Those resulting in leading zeros excluded.

Examples

			8^3 = 512 and 125 = 5^3.
		

Links

• Eric Weisstein's World of Mathematics, Cubic Number

Crossrefs

Cf. A035127, A035129, A035130.

Programs

Mathematica

Select[Range[500]^3, (d = RotateLeft @ IntegerDigits[#])[[1]] > 0 && IntegerQ @ Surd[FromDigits @ d, 3] &] (* Amiram Eldar, Oct 08 2019 *)