A035131 Cubes that when digits rotated left once remain cubic.

1, 8, 512, 95443993

Offset

1,2

Comments

Those resulting in leading zeros excluded.

Links

Table of n, a(n) for n=1..4.

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

Cf. A035127, A035129, A035130.

Sequence in context: A013713 A109966 A139567 * A067512 A067505 A173058

Adjacent sequences: A035128 A035129 A035130 * A035132 A035133 A035134

Keyword

nonn,base,hard

Author

Patrick De Geest, Nov 15 1998

Status

approved