%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