A046044 Sum of 13 but no fewer nonzero fourth powers.

13, 28, 43, 58, 73, 93, 108, 123, 138, 153, 173, 188, 203, 208, 218, 233, 253, 268, 283, 298, 313, 333, 348, 363, 378, 393, 413, 428, 443, 448, 458, 473, 493, 508, 523, 538, 553, 573, 588, 603, 618, 637, 653, 668, 683, 688, 698, 717, 733, 748, 763, 778, 797

Offset

1,1

Links

Table of n, a(n) for n=1..53.

Eric Weisstein's World of Mathematics, Biquadratic Number.

Mathematica

isSumQ[n_] := Do[pr = PowersRepresentations[n, k, 4]; If[k < 13, If[pr != {} , Return[False]], If[k == 13 && pr != {}, Return[True], Return[False]]], {k, 1, 13}]; Reap[For[n = 1, n <= 800, n++, If[isSumQ[n], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Oct 25 2012 *)

Crossrefs

Cf. A000583, A002377, A047724, A047725.

Sequence in context: A157206 A138685 A047724 * A026919 A063309 A098847

Adjacent sequences: A046041 A046042 A046043 * A046045 A046046 A046047

Keyword

nonn

Author

Eric W. Weisstein

Extensions

More terms from Arlin Anderson (starship1(AT)gmail.com)

Status

approved