A061460 Cubes which produce cubes when the leading digit is moved to the end.
1, 8, 512, 1000, 8000, 1000000, 8000000, 95443993, 1000000000, 8000000000, 1000000000000, 8000000000000, 1000000000000000, 8000000000000000, 1000000000000000000, 8000000000000000000, 1000000000000000000000, 8000000000000000000000, 1000000000000000000000000
Offset: 1
Examples
512 becomes 125 which is also a cube.
Crossrefs
Cf. A061459 (with squares instead of cubes).
Programs
-
Maple
filter:= proc(n) local d,x,y; d:= ilog10(n); x:= floor(n/10^d); y:= n mod 10^d; type(surd(10*y+x,3),integer); end proc: select(filter, [seq(i^3,i=1..10^5)]); # Robert Israel, Aug 05 2020
Extensions
More terms from Erich Friedman, May 08 2001
Further terms from Larry Reeves (larryr(AT)acm.org), May 25 2001
More terms from Sean A. Irvine, Feb 17 2023