login
Sum of 18 but no fewer nonzero fourth powers.
4

%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).