%I #16 Mar 12 2015 19:26:39
%S 12,523,1034,1545,2056,2567,3078,3589,4100,4611,5122,5633,6144,19694,
%T 20205,20716,21227,21738,22249,22760,23271,23782,24293,24804,25315,
%U 39376,39887,40398,40909,41420,41931,42442,42953,43464,43975,44486,59058,59569
%N Sum of 12 positive 9th powers.
%H T. D. Noe, <a href="/A004801/b004801.txt">Table of n, a(n) for n = 1..1000</a>
%t nMax = 10^6; n = 12; lst = {}; While[s = Select[Total /@ (IntegerPartitions[n, {12}]^9), # <= nMax &]; s != {}, lst = Join[lst, s]; n++]; Union[lst] (* _T. D. Noe_, Apr 11 2011 *)
%K nonn
%O 1,1
%A _N. J. A. Sloane_
|