A037044 4-white numbers: partition digits of n^4 into blocks of 4 starting at right; sum of these 4-digit numbers equals n.

0, 1, 4950, 5050, 11110, 14443, 15049, 16060, 17776, 18382, 19393, 19998, 19999, 21109, 22726, 25048, 28381, 35047

Offset

1,3

Comments

No additional terms < 1000000. [Harvey P. Dale, Jan 08 2011]

Links

Table of n, a(n) for n=1..18.

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

Cf. A037043, A037045.

Sequence in context: A185850 A260939 A188547 * A391252 A251847 A225718

Adjacent sequences: A037041 A037042 A037043 * A037045 A037046 A037047

Keyword

full,nonn,fini,easy,base,nice

Author

Erich Friedman

Extensions

Offset set to 1 by Paolo P. Lava, Jul 12 2016

Status

approved