|
%I #5 Apr 26 2013 13:00:43
%S 0,2,16,54,128,250,432,686,1024,1458,1001,1333,1737,2225,2809,3501,
%T 4313,5257,6345,7589,8008,9270,10664,12202,13896,15758,17800,20034,
%U 22472,25126,27027,29819,32803,35991,39395,43027,46899,51023,55411,60075,64064,68986
%N Numbers of the form x^3 + SumOfCubedDigits(x).
%C This is to cubes A000578 as A209303 is to squares A000290.
%F a(n) = A000578(n) + A055012(n).
%e a(1) = 1^3 + 1^3 = 2; a(10) = 10^3 + (1^3 + 0^3) = 1000 + 1.
%t Table[n^3 + Total[IntegerDigits[n]^3], {n, 0, 50}] (* _T. D. Noe_, Apr 26 2013 *)
%Y Cf. A000578, A055012, A209303.
%K nonn,base,easy
%O 0,2
%A _Jonathan Vos Post_, Apr 25 2013
|
