

A035130


Cubes when digits rotated right once remain cubic.


3




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



