A038677 Cubes ending in a (different) positive cube.

1331, 1728, 9261, 10648, 29791, 32768, 68921, 74088, 91125, 132651, 140608, 157464, 226981, 238328, 357911, 373248, 531441, 551368, 614125, 753571, 778688, 1030301, 1061208, 1092727, 1124864, 1331000, 1367631, 1404928, 1728000, 1771561, 1815848

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• base
• easy

Examples

			45^3 = 91125 ends with 125 = 5^3.
		

Links

• Jinyuan Wang, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000578 (cubes), A038678 (similar, with squares).

Cf. A145517 (the same without the "positive" restriction).

Programs

Mathematica

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 *)