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