|
| |
|
|
A075247
|
|
z-value of the solution (x,y,z) to 4/n = 1/x + 1/y + 1/z satisfying 0 < x < y < z and having the largest z-value. The x and y components are in A075245 and A075246.
|
|
4
| |
|
|
12, 6, 20, 42, 210, 42, 90, 240, 1122, 156, 468, 812, 3660, 420, 510, 2070, 9120, 930, 1806, 4422, 19182, 1806, 2100, 8372, 35910, 3192, 9048, 14520, 61752, 5256, 9900, 23562, 99540, 8190, 22940, 36290, 152490, 12210, 6314, 53592, 224202, 17556
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 3,1
|
|
|
COMMENTS
| See A073101 for more details.
|
|
|
MATHEMATICA
| For[xLst={}; yLst={}; zLst={}; n=3, n<=100, n++, cnt=0; xr=n/4; If[IntegerQ[xr], x=xr+1, x=Ceiling[xr]]; While[yr=1/(4/n-1/x); If[IntegerQ[yr], y=yr+1, y=Ceiling[yr]]; cnt==0&&y>x, While[zr=1/(4/n-1/x-1/y); cnt==0&&zr>y, If[IntegerQ[zr], z=zr; cnt++; AppendTo[xLst, x]; AppendTo[yLst, y]; AppendTo[zLst, z]]; y++ ]; x++ ]]; zLst
|
|
|
CROSSREFS
| Cf. A073101, A075245, A075246.
Sequence in context: A051725 A070292 A084067 * A173853 A040135 A004015
Adjacent sequences: A075244 A075245 A075246 * A075248 A075249 A075250
|
|
|
KEYWORD
| hard,nice,nonn
|
|
|
AUTHOR
| T. D. Noe (noe(AT)sspectra.com), Sep 10 2002
|
| |
|
|
