A035128 Rotating digits of a(n)^3 right once still yields a cube.

1, 2, 5, 379

Offset: 1

Author

Patrick De Geest, Nov 15 1998

Keywords

• nonn
• base
• hard

Comments

Cubes resulting in leading zeros excluded.

Examples

			379^3 = 54439939 -> 95443993 = 457^3.
		

Links

• Eric Weisstein's World of Mathematics, Cubic Number

Crossrefs

Cf. A045877, A035129, A035130.

Programs

Magma

[k:k in [1..100000]| IsPower(Seqint((Intseq(Floor(k^3/10)) cat [Intseq(k^3)[1]])),3)]; // Marius A. Burtea, Oct 08 2019

Mathematica

Select[Range[500], IntegerQ @ Surd[FromDigits @ RotateRight @ IntegerDigits[#^3], 3] &] (* Amiram Eldar, Oct 08 2019 *)