|
| |
|
|
A003338
|
|
Numbers that are the sum of 4 nonzero 4-th powers.
|
|
4
| |
|
|
4, 19, 34, 49, 64, 84, 99, 114, 129, 164, 179, 194, 244, 259, 274, 289, 304, 324, 339, 354, 369, 419, 434, 499, 514, 529, 544, 594, 609, 628, 643, 658, 673, 674, 708, 723, 738, 769, 784, 788, 803, 849, 868, 883
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
|
|
|
MATHEMATICA
| f[maxno_]:=Module[{nn=Floor[Power[maxno-3, 1/4]], seq}, seq=Union[Total/@(Tuples[Range[nn], {4}]^4)]; Select[seq, #<=maxno&]]
f[1000] (* From Harvey P. Dale, Feb. 27 2011 *)
|
|
|
CROSSREFS
| Cf. A047715.
Sequence in context: A022135 A192193 A028564 * A047715 A031291 A134538
Adjacent sequences: A003335 A003336 A003337 * A003339 A003340 A003341
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com).
|
| |
|
|
