|
| |
|
|
A065138
|
|
Numbers which are equal to the sum of their digits plus the sum of cubes of their digits.
|
|
1
| | |
|
|
|
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 (rgwv(AT)rgwv.com), Apr 27 2009]
|
|
|
LINKS
| Terry Trotter, Trotter Math. News, 1998
|
|
|
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@# &] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 27 2009]
|
|
|
CROSSREFS
| Cf. A046197, A065137.
Sequence in context: A080563 A005147 A007308 * A008841 A038624 A074299
Adjacent sequences: A065135 A065136 A065137 * A065139 A065140 A065141
|
|
|
KEYWORD
| base,fini,full,nonn
|
|
|
AUTHOR
| Henry Bottomley (se16(AT)btinternet.com), Oct 15 2001
|
| |
|
|
