cp's OEIS Frontend

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.

A046048 Numbers that are the sum of 17 but no fewer nonzero fourth powers.

This page as a plain text file.
%I A046048 #28 Feb 16 2025 08:32:38
%S A046048 47,62,77,127,142,157,207,222,237,287,302,317,367,382,397,447,462,477,
%T A046048 527,542,557,607,622,687,702,752,767,782,847,862,927,942,992,1007,
%U A046048 1022,1087,1102,1167,1182,1232,1247,1327,1407,1487,1567,1647,1727,1807,2032
%N A046048 Numbers that are the sum of 17 but no fewer nonzero fourth powers.
%C A046048 a(65) = 13792 is the last term of this sequence; see A099591 for further references.
%H A046048 T. D. Noe, <a href="/A046048/b046048.txt">Table of n, a(n) for n= 1..65</a> (full sequence)
%H A046048 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/BiquadraticNumber.html">Biquadratic Number</a>.
%e A046048 62 is the sum of 17 4th powers and no fewer, so 62 is a term.
%e A046048 63 is the sum of 18 4th powers and no fewer, so 63 is not a term, although it is a term of A099591.
%t A046048 lim = 2100; f[n_] := f[n] = (k = 0; While[k++; k <= 17 && PowersRepresentations[n, k, 4] == {}]; k); Select[Range[lim], f[#] == 17 &] (* _Jean-François Alcover_, Sep 08 2011 *)
%Y A046048 Cf. A000583, A002377, A046047, A099591.
%K A046048 nonn,fini,full,nice
%O A046048 1,1
%A A046048 _Eric W. Weisstein_
%E A046048 More terms from Arlin Anderson (starship1(AT)gmail.com)