A035130 Cubes when digits rotated right once remain cubic.
1, 8, 125, 54439939
Offset: 1
Examples
5^3 = 125 -> 512 = 8^3.
Links
- Eric Weisstein's World of Mathematics, Cubic Number
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
Comments