|
%I #8 Jan 14 2021 21:14:33
%S 0,0,0,0,0,0,0,0,0,0,0,14,64,174,368,670,1104,1694,2464,3438,0,64,224,
%T 528,1024,1760,2784,4144,5888,8064,0,174,528,1134,2064,3390,5184,7518,
%U 10464,14094,0,368,1024,2064,3584,5680,8448,11984,16384,21744,0,670
%N a(n) = (sum of digits of n)^4 - (sum of digits^4 of n).
%C a(n) = 0 iff n is a single-digit number or is a power of ten times a single-digit number.
%t f[n_] := Plus @@ IntegerDigits[n]^4 - Plus @@ (IntegerDigits[n]^4); Table[ f[n], {n, 0, 100}]
%K nonn,base,easy
%O 0,12
%A _N. J. A. Sloane_ and _Robert G. Wilson v_, May 04 2002
|
