A035130 Cubes when digits rotated right once remain cubic.

1, 8, 125, 54439939

Offset: 1

Author

Patrick De Geest, Nov 15 1998

Keywords

• nonn
• base
• hard

Comments

Those resulting in leading zeros excluded.

Examples

			5^3 = 125 -> 512 = 8^3.
		

Links

• Eric Weisstein's World of Mathematics, Cubic Number

Crossrefs

Cf. A035126, A035128, A035131.

Programs

Magma

[k^3: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[10000]^3,IntegerQ[Surd[FromDigits[RotateRight[ IntegerDigits[#]]], 3]]&] (* Harvey P. Dale, May 25 2015 *)

Formula

a(n) = A035128(n)^3. - R. J. Mathar, Jan 25 2017