A164882 Numbers n such that sum of the cubes of the digits of n^3 is a perfect cube.

0, 1, 2, 10, 20, 78, 100, 118, 200, 237, 303, 501, 780, 1000, 1005, 1039, 1079, 1145, 1180, 1562, 2000, 2224, 2370, 3003, 3030, 3304, 4105, 4339, 5001, 5010, 5235, 5478, 5705, 5829, 6096, 6459, 6475, 6493, 6795, 7154, 7221, 7444, 7800, 8494, 9168, 9462

Offset

1,3

Links

Zak Seidov, Table of n, a(n) for n = 1..1741 (all terms up to 10^6).

Example

a(6) = 78 since 78^3 = 474552 and 4^3 + 7^3 + 4^3 + 5^3 + 5^3 + 2^3 = 729 = 9^3

Mathematica

Select[Range[0, 10000], IntegerQ[Power[Total[IntegerDigits[#^3]^3], (3)^-1]]&] (* Harvey P. Dale, Mar 17 2012 *)

Crossrefs

Sequence in context: A332393 A120552 A090220 * A029994 A298411 A324474

Adjacent sequences: A164879 A164880 A164881 * A164883 A164884 A164885

Keyword

nonn,base

Author

Gaurav Kumar, Aug 29 2009

Extensions

Typo in name fixed by Zak Seidov, May 21 2013

Status

approved