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

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

Mathematica

Select[Range[0, 200]^3, IntegerQ[(Plus@@IntegerDigits[ #])^(1/3)]&] (* Dean Hickerson, Apr 08 2002 *)

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

Cf. A000578, A237525.

Sequence in context: A340888 A231638 A065082 * A050803 A016791 A061103

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

Status

approved