|
%I #9 Jul 19 2015 01:02:31
%S 0,12,30,666,870,960,1998
%N Numbers that are equal to the sum of their digits plus the sum of cubes of their digits.
%D 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]
%H Terry Trotter, <a href="http://www.geocities.com/ttrotter3/tmn0598.gif">Trotter Math. News, 1998</a>[broken link]
%e 12 is included because 12 = (1 + 2) + (1^3 + 2^3).
%t fQ[n_] := Block[{id = IntegerDigits@ n}, Plus @@ id + Plus @@ (id^3) == n]; Select[ Range[0, 2000], fQ@# &] (* _Robert G. Wilson v_, Apr 27 2009 *)
%Y Cf. A046197, A065137.
%K base,fini,full,nonn
%O 1,2
%A _Henry Bottomley_, Oct 15 2001
|
