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
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]
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 *)