A053058 Cubes whose digit sum is also a cube.

0, 1, 8, 125, 512, 1000, 1331, 8000, 19683, 35937, 46656, 59319, 74088, 125000, 157464, 185193, 328509, 373248, 421875, 474552, 512000, 592704, 658503, 804357, 1000000, 1030301, 1157625, 1259712, 1331000, 1367631, 1481544, 2460375, 2628072, 3176523, 4251528, 4492125, 4741632, 5268024, 5545233, 8000000, 10503459, 10941048, 11390625, 11852352, 12326391, 12812904, 17173512, 19034163, 19683000, 20346417

Offset: 1

Author

Felice Russo, Feb 25 2000

Keywords

• easy
• base
• nonn

References

• Felice Russo, A set of new Smarandache functions, sequences and conjectures in number theory, American Research Press, 2000.

Links

• Daniel Mondot, Table of n, a(n) for n = 1..10000

Crossrefs

Intersection of A059094 and A000578.

Cf. A237525.

Programs

Mathematica

Select[Range[0, 200]^3, IntegerQ[(Plus@@IntegerDigits[ #])^(1/3)]&] (* Dean Hickerson, Apr 08 2002 *)
k=0;Monitor[Parallelize[While[True,If[And[IntegerQ[k^(1/3)],IntegerQ[Total[IntegerDigits[k]]^(1/3)]],Print[k]]; k++]; k], k] (* J.W.L. (Jan) Eerland, Sep 30 2024 *)

PARI

v=List();for(n=0,1e2,if(ispower(sumdigits(n^3),3), listput(v, n^3))); Vec(v) \\ Charles R Greathouse IV, Sep 20 2012

Formula

a(n) = A237525(n)^3.

Extensions

More terms from James Sellers, Feb 28 2000

Edited by N. J. A. Sloane, Apr 11 2009 at the suggestion of Eric Angelini

a(33)-a(50) from J.W.L. (Jan) Eerland, Sep 30 2024