A004833 Numbers that are the sum of at most 4 nonzero 4th powers.

0, 1, 2, 3, 4, 16, 17, 18, 19, 32, 33, 34, 48, 49, 64, 81, 82, 83, 84, 97, 98, 99, 113, 114, 129, 162, 163, 164, 178, 179, 194, 243, 244, 256, 257, 258, 259, 272, 273, 274, 288, 289, 304, 324, 337, 338, 339, 353, 354, 369, 418, 419, 434, 499, 512, 513, 514, 528, 529, 544, 593, 594, 609, 625, 626, 627, 628, 641, 642, 643

Offset

1,3

Links

Alois P. Heinz, Table of n, a(n) for n = 1..20000 (first 1000 terms from T. D. Noe)

Mathematica

Reap[For[n = 0, n < 1000, n++, If[MatchQ[ PowersRepresentations[n, 4, 4], {{_, _, _, _}, ___}], Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Oct 30 2017 *)

Prog

(PARI) N=1000; x='x+O('x^N); /* terms up to N-1 */
S=ceil(N^(1/4));
v=Vec(sum(k=-S, S, x^(k^4))^4);
for(n=1, #v, if(v[n]!=0, print1(n-1, ", "))); /* Joerg Arndt, Jun 25 2011 */

Crossrefs

Column k=4 of A336820.

Sequence in context: A095261 A066103 A237341 * A350746 A283515 A333802

Adjacent sequences: A004830 A004831 A004832 * A004834 A004835 A004836

Keyword

nonn

Author

N. J. A. Sloane

Status

approved