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,2

Comments

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

Links

Table of n, a(n) for n=0..41.

Formula

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

Example

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

Mathematica

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

Crossrefs

Cf. A000578, A055012, A209303.

Sequence in context: A027273 A210710 A337529 * A033431 A107610 A091914

Adjacent sequences: A225048 A225049 A225050 * A225052 A225053 A225054

Keyword

nonn,base,easy

Author

Jonathan Vos Post, Apr 25 2013

Status

approved