|
|
A047723
|
|
Sum of 12 but no fewer nonzero fourth powers.
|
|
2
|
|
|
12, 27, 42, 57, 72, 92, 107, 122, 137, 152, 172, 187, 192, 202, 217, 232, 252, 267, 282, 297, 312, 332, 347, 362, 377, 392, 412, 427, 432, 442, 457, 472, 492, 497, 507, 522, 537, 552, 572, 587, 602, 617, 636, 652, 667, 672, 682, 697, 716, 732, 747, 762
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
PROG
|
(Python)
from itertools import count, takewhile, combinations_with_replacement as mc
def aupto(limit):
qd = list(takewhile(lambda x: x <= limit, (k**4 for k in count(1))))
ss = [set(sum(c) for c in mc(qd, i)) for i in range(13)]
for i in range(11, 0, -1): ss[12] -= ss[i]
return sorted(s for s in ss[12] if s <= limit)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Arlin Anderson (starship1(AT)gmail.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|