|
|
A004914
|
|
Numbers that are the sum of at most 8 positive 11th powers.
|
|
1
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 2048, 2049, 2050, 2051, 2052, 2053, 2054, 2055, 4096, 4097, 4098, 4099, 4100, 4101, 4102, 6144, 6145, 6146, 6147, 6148, 6149, 8192, 8193, 8194, 8195, 8196, 10240, 10241, 10242, 10243, 12288, 12289, 12290, 14336, 14337, 16384
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
PROG
|
(PARI) list(lim)=my(v=List(), A, B, C, D, E, F, G); for(a=0, sqrtnint(lim\=1, 11), A=a^11; for(b=0, min(sqrtnint(lim-A, 11), a), B=A+b^11; for(c=0, min(sqrtnint(lim-B, 11), b), C=B+c^11; for(d=0, min(sqrtnint(lim-C, 11), c), D=C+d^11; for(e=0, min(sqrtnint(lim-D, 11), d), E=D+e^11; for(f=0, min(sqrtnint(lim-E, 11), e), F=E+f^11; for(g=0, min(sqrtnint(lim-F, 11), f), G=F+g^11; for(h=0, min(sqrtnint(lim-G, 11), g), listput(v, G+h^11))))))))); Set(v) \\ Charles R Greathouse IV, Nov 07 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|