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

0, 2, 16, 54, 128, 250, 432, 686, 1024, 1458, 1001, 1333, 1737, 2225, 2809, 3501, 4313, 5257, 6345, 7589, 8008, 9270, 10664, 12202, 13896, 15758, 17800, 20034, 22472, 25126, 27027, 29819, 32803, 35991, 39395, 43027, 46899, 51023, 55411, 60075, 64064, 68986

Offset: 0

Author

Jonathan Vos Post, Apr 25 2013

Keywords

• nonn
• base
• easy

Comments

This is to cubes A000578 as A209303 is to squares A000290.

Examples

			a(1) = 1^3 + 1^3 = 2; a(10) = 10^3 + (1^3 + 0^3) = 1000 + 1.
		

Crossrefs

Cf. A000578, A055012, A209303.

Programs

Mathematica

Table[n^3 + Total[IntegerDigits[n]^3], {n, 0, 50}] (* T. D. Noe, Apr 26 2013 *)

Formula

a(n) = A000578(n) + A055012(n).