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

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

Table of n, a(n) for n=1..7.

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

Example

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

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

Crossrefs

Cf. A046197, A065137.

Sequence in context: A005147 A320122 A007308 * A279821 A008841 A038624

Adjacent sequences: A065135 A065136 A065137 * A065139 A065140 A065141

Keyword

base,fini,full,nonn

Author

Henry Bottomley, Oct 15 2001

Status

approved