This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A061460 #15 Feb 17 2023 21:26:41 %S A061460 1,8,512,1000,8000,1000000,8000000,95443993,1000000000,8000000000, %T A061460 1000000000000,8000000000000,1000000000000000,8000000000000000, %U A061460 1000000000000000000,8000000000000000000,1000000000000000000000,8000000000000000000000,1000000000000000000000000 %N A061460 Cubes which produce cubes when the leading digit is moved to the end. %e A061460 512 becomes 125 which is also a cube. %p A061460 filter:= proc(n) local d,x,y; %p A061460 d:= ilog10(n); %p A061460 x:= floor(n/10^d); %p A061460 y:= n mod 10^d; %p A061460 type(surd(10*y+x,3),integer); %p A061460 end proc: %p A061460 select(filter, [seq(i^3,i=1..10^5)]); # _Robert Israel_, Aug 05 2020 %Y A061460 Cf. A061459 (with squares instead of cubes). %K A061460 nonn,base %O A061460 1,2 %A A061460 _Amarnath Murthy_, May 04 2001 %E A061460 More terms from _Erich Friedman_, May 08 2001 %E A061460 Further terms from Larry Reeves (larryr(AT)acm.org), May 25 2001 %E A061460 More terms from _Sean A. Irvine_, Feb 17 2023