%I #17 Jan 08 2013 14:31:37
%S 63,78,143,158,223,238,303,318,383,398,463,478,543,558,623,703,783,
%T 863,943,1008,1023,1103,1183,1248
%N Sum of 18 but no fewer nonzero fourth powers.
%C See A099591 for references that show that this sequence is full.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/BiquadraticNumber.html">Biquadratic Number.</a>
%t 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 *)
%Y Cf. A000583, A002377, A046048, A099591.
%K nonn,fini,full
%O 1,1
%A _Eric W. Weisstein_
%E More terms from Arlin Anderson (starship1(AT)gmail.com).