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,1

Links

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

Example

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

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

Crossrefs

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

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

Sequence in context: A353027 A182371 A252258 * A202457 A252347 A295900

Adjacent sequences: A038674 A038675 A038676 * A038678 A038679 A038680

Keyword

nonn,base,easy

Author

N. J. A. Sloane

Status

approved