This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A004801 #20 Jul 03 2025 10:57:21
%S A004801 12,523,1034,1545,2056,2567,3078,3589,4100,4611,5122,5633,6144,19694,
%T A004801 20205,20716,21227,21738,22249,22760,23271,23782,24293,24804,25315,
%U A004801 39376,39887,40398,40909,41420,41931,42442,42953,43464,43975,44486,59058,59569
%N A004801 Sum of 12 positive 9th powers.
%H A004801 T. D. Noe, <a href="/A004801/b004801.txt">Table of n, a(n) for n = 1..1000</a>
%t A004801 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 *)
%o A004801 (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
%Y A004801 Cf. A008453 (ninth powers), A003335 - A004823 (same for 3rd - 11th powers).
%K A004801 nonn
%O A004801 1,1
%A A004801 _N. J. A. Sloane_