close
login
A004801
Sum of 12 positive 9th powers.
42
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,1
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 *)
PROG
(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
CROSSREFS
Cf. A008453 (ninth powers), A003335 - A004823 (same for 3rd - 11th powers).
Sequence in context: A197771 A198056 A360644 * A202079 A296685 A390900
KEYWORD
nonn
STATUS
approved