|
| |
|
|
A037045
|
|
5-white numbers: partition digits of n^5 into blocks of 5 starting at right; sum of these 5-digit numbers equals n.
|
|
3
| |
|
|
0, 1, 27100, 73440, 95120, 104336, 139564, 143901, 144442, 148780, 155555, 165311, 172898, 182655, 195119, 204876, 204877, 212463, 216530, 217341, 227098, 233873, 234685, 238752, 239021, 239563, 244441, 248779, 251216, 255554, 260432
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
EXAMPLE
| 27100 is a 5-white number since 27100^5=14616603103510000000000 and 146+16603+10351+00000+00000=27100.
|
|
|
MATHEMATICA
| w5Q[n_]:=Module[{idn5=IntegerDigits[n^5], len}, len=Length[idn5]; Total[ FromDigits/@Partition[PadLeft[idn5, len+5-Mod[len, 5]], 5]]==n]; Select[ Range[0, 300000], w5Q] (* From Harvey P. Dale, Jul 27 2011 *)
|
|
|
CROSSREFS
| Cf. A037043, A037044.
Sequence in context: A162144 A186136 A159995 * A186481 A127411 A157814
Adjacent sequences: A037042 A037043 A037044 * A037046 A037047 A037048
|
|
|
KEYWORD
| full,nonn,fini,easy,base,nice
|
|
|
AUTHOR
| Erich Friedman (erich.friedman(AT)stetson.edu)
|
| |
|
|
