A046049 Sum of 18 but no fewer nonzero fourth powers.

63, 78, 143, 158, 223, 238, 303, 318, 383, 398, 463, 478, 543, 558, 623, 703, 783, 863, 943, 1008, 1023, 1103, 1183, 1248

Offset: 1

Author

Eric W. Weisstein

Keywords

• nonn
• fini
• full

Comments

See A099591 for references that show that this sequence is full.

Links

• Eric Weisstein's World of Mathematics, Biquadratic Number.

Crossrefs

Cf. A000583, A002377, A046048, A099591.

Programs

Mathematica

Select[ Range[1300], (pr = PowersRepresentations[#, 18, 4]; test = pr != {} && FreeQ[pr, r_List /; (Times @@ r) == 0]; If[test, Print[#]]; test) &] (* Jean-François Alcover, Oct 30 2012 *)

Extensions

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