|
%I #17 Sep 22 2019 17:11:59
%S 0,1,2401,234256,390625,614656,1679616
%N Numbers which are the fourth powers of their digit sum.
%C It can be shown that 1679616 = 36^4 is the largest such number.
%D Amarnath Murthy, The largest and the smallest m-th power whose digit sum is the m-th root. (To be published)
%e 614656 = ( 6+1+4+6+5+6)^4 =28^4.
%t Select[Range[0,17*10^5],#==Total[IntegerDigits[#]]^4&] (* _Harvey P. Dale_, Sep 22 2019 *)
%o (PARI) isok(n) = n == sumdigits(n)^4; \\ _Michel Marcus_, Jan 22 2015
%Y Cf. A061209 (with cubes), A061211.
%Y Cf. A046000, A076090, A046017; A252648 and references there.
%K nonn,fini,full,base
%O 1,3
%A _Amarnath Murthy_, Apr 21 2001
%E Corrected by Ulrich Schimke, Feb 11 2002
%E Initial 0 added by _M. F. Hasler_, Apr 12 2015
| 