|
| |
|
|
A037044
|
|
4-white numbers: partition digits of n^4 into blocks of 4 starting at right; sum of these 4-digit numbers equals n.
|
|
3
| |
|
|
0, 1, 4950, 5050, 11110, 14443, 15049, 16060, 17776, 18382, 19393, 19998, 19999, 21109, 22726, 25048, 28381, 35047
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| No additional terms < 1000000. [From 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
| okQ[n_] := Module[{idn=IntegerDigits[n^4], lidn, d4s, bidn, fidn, sbidn}, lidn=Length[idn]; d4s=4Quotient[lidn, 4]; bidn=Take[idn, -d4s]; fidn=Take[idn, Mod[lidn, 4]]; sbidn=Total[FromDigits/@Partition[bidn, 4]]; sbidn+FromDigits[fidn] == n]; Select[Range[0, 1000000], okQ] (* From Harvey P. Dale, Jan 08 2011 *)
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]
|
|
|
CROSSREFS
| Cf. A037043, A037045.
Sequence in context: A015357 A185850 A188547 * A116147 A203064 A070001
Adjacent sequences: A037041 A037042 A037043 * A037045 A037046 A037047
|
|
|
KEYWORD
| full,nonn,fini,easy,base,nice,changed
|
|
|
AUTHOR
| Erich Friedman (erich.friedman(AT)stetson.edu)
|
| |
|
|
