login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers that are the sum of at most 6 positive 11th powers.
1

%I #11 Nov 06 2017 23:30:22

%S 0,1,2,3,4,5,6,2048,2049,2050,2051,2052,2053,4096,4097,4098,4099,4100,

%T 6144,6145,6146,6147,8192,8193,8194,10240,10241,12288,177147,177148,

%U 177149,177150,177151,177152,179195,179196,179197,179198,179199,181243

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

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

%o (PARI) list(lim)=my(v=List(),A,B,C,D,E); lim\=1; for(a=0,sqrtnint(lim,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), listput(v,E+f^11))))))); Set(v) \\ _Charles R Greathouse IV_, Nov 06 2017

%K nonn

%O 1,3

%A _N. J. A. Sloane_