A035130 Cubes when digits rotated right once remain cubic.

1, 8, 125, 54439939

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

Formula

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

Example

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

Mathematica

Select[Range[10000]^3, IntegerQ[Surd[FromDigits[RotateRight[ IntegerDigits[#]]], 3]]&] (* Harvey P. Dale, May 25 2015 *)

Prog

(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

Crossrefs

Cf. A035126, A035128, A035131.

Sequence in context: A227851 A076960 A298623 * A055762 A281714 A236549

Adjacent sequences: A035127 A035128 A035129 * A035131 A035132 A035133

Keyword

nonn,base,hard

Author

Patrick De Geest, Nov 15 1998

Status

approved