A046049 Sum of 18 but no fewer nonzero fourth powers.

63, 78, 143, 158, 223, 238, 303, 318, 383, 398, 463, 478, 543, 558, 623, 703, 783, 863, 943, 1008, 1023, 1103, 1183, 1248

Offset

1,1

Comments

See A099591 for references that show that this sequence is full.

Links

Table of n, a(n) for n=1..24.

Eric Weisstein's World of Mathematics, Biquadratic Number.

Mathematica

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 *)

Crossrefs

Cf. A000583, A002377, A046048, A099591.

Sequence in context: A073569 A238088 A350960 * A240528 A320066 A372557

Adjacent sequences: A046046 A046047 A046048 * A046050 A046051 A046052

Keyword

nonn,fini,full,changed

Author

Eric W. Weisstein

Extensions

More terms from Arlin Anderson (starship1(AT)gmail.com).

Status

approved