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 A038677 #16 May 06 2022 13:13:51 %S A038677 1331,1728,9261,10648,29791,32768,68921,74088,91125,132651,140608, %T A038677 157464,226981,238328,357911,373248,531441,551368,614125,753571, %U A038677 778688,1030301,1061208,1092727,1124864,1331000,1367631,1404928,1728000,1771561,1815848 %N A038677 Cubes ending in a (different) positive cube. %H A038677 Jinyuan Wang, <a href="/A038677/b038677.txt">Table of n, a(n) for n = 1..1000</a> %e A038677 45^3 = 91125 ends with 125 = 5^3. %t A038677 ds[n_] := DeleteCases[NestWhileList[FromDigits[Rest[IntegerDigits[#]]] &, n, # > 9 &], 0]; Select[Range[3, 122]^3, Or @@ IntegerQ /@ (Rest[ds[#]]^(1/3)) &] (* _Jayanta Basu_, Jul 10 2013 *) %Y A038677 Cf. A000578 (cubes), A038678 (similar, with squares). %Y A038677 Cf. A145517 (the same without the "positive" restriction). %K A038677 nonn,base,easy %O A038677 1,1 %A A038677 _N. J. A. Sloane_