|
%I #20 Mar 09 2024 11:06:12
%S 0,1,10000,14641,100000000,104060401,146410000,1000000000000,
%T 1004006004001,1040604010000,1464100000000,4228599998736,
%U 8670998958336,9748688599521,9948826238976,12598637895936,19226786746896,19896452775936,20699669996721,23768199069696,26599197668481
%N Fourth powers whose digital sum is also a fourth power.
%C Among the terms of this sequence, there are:
%C the numbers of the form 10^(4*k) with k >= 0;
%C the numbers of the form (10^i + 10^j)^4 with i > j >= 0.
%H Stefano Spezia, <a href="/A371004/b371004.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A371047(n)^4.
%t Select[Range[0,2500]^4, IntegerQ[DigitSum[#]^(1/4)]&]
%Y Cf. A000583, A007953, A038444, A053057, A053058, A371047.
%K nonn,base,easy
%O 1,3
%A _Stefano Spezia_, Mar 08 2024
|
