login
Numbers of the form x^3 + SumOfCubedDigits(x).
0

%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