A004801 Sum of 12 positive 9th powers.

12, 523, 1034, 1545, 2056, 2567, 3078, 3589, 4100, 4611, 5122, 5633, 6144, 19694, 20205, 20716, 21227, 21738, 22249, 22760, 23271, 23782, 24293, 24804, 25315, 39376, 39887, 40398, 40909, 41420, 41931, 42442, 42953, 43464, 43975, 44486, 59058, 59569

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A008453 (ninth powers), A003335 - A004823 (same for 3rd - 11th powers).

Programs

Mathematica

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 *)

PARI

A004801_upto(N=1e5, n=12, p=9)={my(P=[x^p|x<-[1..sqrtnint(N-n+1, p)]], S=P); while(n--, S=Set(concat([[x+y|y<-S, x+y<=N]|x<-P]))); S} \\ M. F. Hasler, Jul 03 2025