|
|
A096546
|
|
Values w associated with A096545(n), sorted on z, then on y and finally on x.
|
|
5
|
|
|
6, 9, 20, 19, 28, 25, 29, 41, 46, 46, 41, 44, 53, 58, 54, 67, 70, 69, 85, 72, 75, 90, 82, 71, 76, 81, 84, 87, 87, 87, 97, 88, 93, 88, 89, 90, 108, 96, 105, 110, 113, 116, 134, 139, 122, 103, 121, 108, 126, 111, 115, 120, 123, 127, 141, 132, 129, 160, 137, 159, 145, 171
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
For 0<x<y<z, the primitive quadruples (x,y,z,w) satisfy x^3 + y^3 + z^3 = w^3.
|
|
LINKS
|
|
|
EXAMPLE
|
Entry 87, for example, is associated with primitive quadruples (x, y, z, w)= (26, 55, 78, 87), (38, 48, 79, 87), (20, 54, 79, 87) satisfying x^3 + y^3 + z^3 = w^3, for 0<x<y<z=A096545(n), with n=28, 29, 30.
|
|
MATHEMATICA
|
s[w_] := Solve[0 < x < y < z && x^3 + y^3 + z^3 == w^3 && GCD[x, y, z, w] == 1, {x, y, z}, Integers];
xyzw = Reap[For[w = 1, w <= 200, w++, sw = s[w]; If[sw != {}, Print[{x, y, z, w} /. sw; Sow[{x, y, z, w} /. sw ]]]]][[2, 1]] // Flatten[#, 1]&;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|