login
Cubes which produce cubes when the leading digit is moved to the end.
2

%I #15 Feb 17 2023 21:26:41

%S 1,8,512,1000,8000,1000000,8000000,95443993,1000000000,8000000000,

%T 1000000000000,8000000000000,1000000000000000,8000000000000000,

%U 1000000000000000000,8000000000000000000,1000000000000000000000,8000000000000000000000,1000000000000000000000000

%N Cubes which produce cubes when the leading digit is moved to the end.

%e 512 becomes 125 which is also a cube.

%p filter:= proc(n) local d,x,y;

%p d:= ilog10(n);

%p x:= floor(n/10^d);

%p y:= n mod 10^d;

%p type(surd(10*y+x,3),integer);

%p end proc:

%p select(filter, [seq(i^3,i=1..10^5)]); # _Robert Israel_, Aug 05 2020

%Y Cf. A061459 (with squares instead of cubes).

%K nonn,base

%O 1,2

%A _Amarnath Murthy_, May 04 2001

%E More terms from _Erich Friedman_, May 08 2001

%E Further terms from Larry Reeves (larryr(AT)acm.org), May 25 2001

%E More terms from _Sean A. Irvine_, Feb 17 2023