A065138 Numbers that are equal to the sum of their digits plus the sum of cubes of their digits.

0, 12, 30, 666, 870, 960, 1998

Offset: 1

Author

Henry Bottomley, Oct 15 2001

Keywords

• base
• fini
• full
• nonn

Examples

			12 is included because 12 = (1 + 2) + (1^3 + 2^3).
		

References

• Underwood Dudley, Numerology or, what Pythagoras wrought, Spectrum Series, Chapter 7 - Beastly Curiosities, page 71, Mathematical Association of America, Washington, D.C., 1997. [From Robert G. Wilson v, Apr 27 2009]

Links

• Terry Trotter, Trotter Math. News, 1998[broken link]

Crossrefs

Cf. A046197, A065137.

Programs

Mathematica

fQ[n_] := Block[{id = IntegerDigits@ n}, Plus @@ id + Plus @@ (id^3) == n]; Select[ Range[0, 2000], fQ@# &] (* Robert G. Wilson v, Apr 27 2009 *)