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 A046044 #10 Feb 16 2025 08:32:38
%S A046044 13,28,43,58,73,93,108,123,138,153,173,188,203,208,218,233,253,268,
%T A046044 283,298,313,333,348,363,378,393,413,428,443,448,458,473,493,508,523,
%U A046044 538,553,573,588,603,618,637,653,668,683,688,698,717,733,748,763,778,797
%N A046044 Sum of 13 but no fewer nonzero fourth powers.
%H A046044 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BiquadraticNumber.html">Biquadratic Number.</a>
%t A046044 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 *)
%Y A046044 Cf. A000583, A002377, A047724, A047725.
%K A046044 nonn
%O A046044 1,1
%A A046044 _Eric W. Weisstein_
%E A046044 More terms from Arlin Anderson (starship1(AT)gmail.com)