|
%I #18 Jul 12 2016 04:05:57
%S 0,1,4950,5050,11110,14443,15049,16060,17776,18382,19393,19998,19999,
%T 21109,22726,25048,28381,35047
%N 4-white numbers: partition digits of n^4 into blocks of 4 starting at right; sum of these 4-digit numbers equals n.
%C No additional terms < 1000000. [_Harvey P. Dale_, Jan 08 2011]
%e 11110 is a 4-white number since 11110^4 = 15235483310410000 and 1 + 5235 + 4833 + 1041 + 0000 = 11110.
%t fQ[n_] := Plus @@ FromDigits /@ Partition[ IntegerDigits[n^4, 10, 4 (Quotient[ Floor[4 Log10@ n + 1], 4] + 1)], 4] == n; Select[ Range[0, 36000], fQ]
%t Select[Range[0, 10^5], # == Plus @@ IntegerDigits[#^4, 10^4] &] (* _Giovanni Resta_, Jul 12 2016 *)
%Y Cf. A037043, A037045.
%K full,nonn,fini,easy,base,nice
%O 1,3
%A _Erich Friedman_
%E Offset set to 1 by _Paolo P. Lava_, Jul 12 2016
|
