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