|
|
A038677
|
|
Cubes ending in a (different) positive cube.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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. A145517 (the same without the "positive" restriction).
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|