OFFSET
1,3
COMMENTS
No additional terms < 1000000. [Harvey P. Dale, Jan 08 2011]
EXAMPLE
11110 is a 4-white number since 11110^4 = 15235483310410000 and 1 + 5235 + 4833 + 1041 + 0000 = 11110.
MATHEMATICA
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]
Select[Range[0, 10^5], # == Plus @@ IntegerDigits[#^4, 10^4] &] (* Giovanni Resta, Jul 12 2016 *)
CROSSREFS
KEYWORD
full,nonn,fini,easy,base,nice
AUTHOR
EXTENSIONS
Offset set to 1 by Paolo P. Lava, Jul 12 2016
STATUS
approved