|
%I #19 Sep 08 2022 08:44:52
%S 1,8,125,54439939
%N Cubes when digits rotated right once remain cubic.
%C Those resulting in leading zeros excluded.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CubicNumber.html">Cubic Number</a>
%F a(n) = A035128(n)^3. - _R. J. Mathar_, Jan 25 2017
%e 5^3 = 125 -> 512 = 8^3.
%t Select[Range[10000]^3,IntegerQ[Surd[FromDigits[RotateRight[ IntegerDigits[#]]], 3]]&] (* _Harvey P. Dale_, May 25 2015 *)
%o (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
%Y Cf. A035126, A035128, A035131.
%K nonn,base,hard
%O 1,2
%A _Patrick De Geest_, Nov 15 1998
| 