This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A046049 #18 Feb 16 2025 08:32:38
%S A046049 63,78,143,158,223,238,303,318,383,398,463,478,543,558,623,703,783,
%T A046049 863,943,1008,1023,1103,1183,1248
%N A046049 Sum of 18 but no fewer nonzero fourth powers.
%C A046049 See A099591 for references that show that this sequence is full.
%H A046049 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BiquadraticNumber.html">Biquadratic Number.</a>
%t A046049 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 A046049 Cf. A000583, A002377, A046048, A099591.
%K A046049 nonn,fini,full
%O A046049 1,1
%A A046049 _Eric W. Weisstein_
%E A046049 More terms from Arlin Anderson (starship1(AT)gmail.com).