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

References

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

Links

Table of n, a(n) for n=1..50.

Formula

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

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

Prog

(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

Crossrefs

Intersection of A059094 and A000578.

Cf. A237525.

Sequence in context: A340888 A231638 A065082 * A050803 A061103 A016791

Adjacent sequences: A053055 A053056 A053057 * A053059 A053060 A053061

Keyword

easy,base,nonn

Author

Felice Russo, Feb 25 2000

Extensions

More terms from James A. 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

Status

approved