A047724 Sum of 13 nonzero fourth powers.

13, 28, 43, 58, 73, 88, 93, 103, 108, 118, 123, 133, 138, 148, 153, 163, 168, 173, 178, 183, 188, 193, 198, 203, 208, 213, 218, 228, 233, 243, 248, 253, 258, 263, 268, 273, 278, 283, 293, 298, 308, 313, 323, 328, 333, 338, 343, 348, 358, 363, 373, 378, 388

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

N:= 1000: # for terms <= N
F1:= {seq(i^4, i=1..floor(N^(1/4)))}:
Fj:= F1:
for j from 2 to 13 do
  Fj:= select(`<=`, {seq(seq(s+t, s=F1), t=Fj)}, N)
od:
Fj; # Robert Israel, Oct 12 2025

Mathematica

Union[Total/@Tuples[Range[3]^4, 13]] (* Harvey P. Dale, Nov 04 2015 *)

Crossrefs

Cf. A000583, A003346, A046044.

Sequence in context: A145417 A157206 A138685 * A046044 A026919 A063309

Adjacent sequences: A047721 A047722 A047723 * A047725 A047726 A047727

Keyword

nonn

Author

Arlin Anderson (starship1(AT)gmail.com)

Status

approved