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

1, 2, 5, 379

Offset

1,2

Comments

Cubes resulting in leading zeros excluded.

Links

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

Eric Weisstein's World of Mathematics, Cubic Number

Example

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A045877, A035129, A035130.

Sequence in context: A345977 A183129 A081462 * A208211 A138696 A163798

Adjacent sequences: A035125 A035126 A035127 * A035129 A035130 A035131

Keyword

nonn,base,hard

Author

Patrick De Geest, Nov 15 1998

Status

approved