|
%I #20 Mar 09 2024 11:05:26
%S 0,1,8,125,512,1000,1331,8000,19683,35937,46656,59319,74088,125000,
%T 157464,185193,328509,373248,421875,474552,512000,592704,658503,
%U 804357,1000000,1030301,1157625,1259712,1331000,1367631,1481544,2460375
%N Cubes whose digit sum is also a cube.
%D Felice Russo, A set of new Smarandache functions, sequences and conjectures in number theory, American Research Press, 2000.
%t Select[Range[0, 200]^3, IntegerQ[(Plus@@IntegerDigits[ #])^(1/3)]&] (* _Dean Hickerson_, Apr 08 2002 *)
%o (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
%Y Cf. A000578, A237525.
%K easy,base,nonn
%O 1,3
%A _Felice Russo_, Feb 25 2000
%E More terms from _James A. Sellers_, Feb 28 2000
%E Edited by _N. J. A. Sloane_, Apr 11 2009 at the suggestion of _Eric Angelini_
|
