A004914 - OEIS

%I #11 Nov 07 2017 00:13:13

%S 0,1,2,3,4,5,6,7,8,2048,2049,2050,2051,2052,2053,2054,2055,4096,4097,

%T 4098,4099,4100,4101,4102,6144,6145,6146,6147,6148,6149,8192,8193,

%U 8194,8195,8196,10240,10241,10242,10243,12288,12289,12290,14336,14337,16384

%N Numbers that are the sum of at most 8 positive 11th powers.

%H Charles R Greathouse IV, <a href="/A004914/b004914.txt">Table of n, a(n) for n = 1..10000</a>

%o (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

%K nonn

%O 1,3

%A _N. J. A. Sloane_