A075260 x-value of the solution (x,y,z) to 3/(2n+1) = 1/x + 1/y + 1/z satisfying 0 < x < y < z, odd x, y, z and having the largest z-value. The y and z components are in A075261 and A075262.

3, 3, 5, 5, 5, 7, 9, 7, 9, 9, 9, 11, 11, 11, 13, 13, 13, 15, 15, 15, 17, 21, 17, 19, 19, 19, 21, 21, 21, 23, 23, 23, 25, 25, 25, 27, 27, 27, 29, 29, 29, 31, 33, 31, 33, 33, 33, 35, 35, 35, 37, 37, 37, 39, 39, 39, 41, 43, 41, 43, 43, 43, 45, 45, 45, 47, 49, 47, 49, 49, 49, 51, 51

Offset

2,1

Comments

See A075259 for more details.

Links

Table of n, a(n) for n=2..74.

Mathematica

m=3; For[xLst={}; yLst={}; zLst={}; n=5, n<=200, n=n+2, cnt=0; xr=n/m; If[IntegerQ[xr], x=xr+1, x=Ceiling[xr]]; While[yr=1/(m/n-1/x); If[IntegerQ[yr], y=yr+1, y=Ceiling[yr]]; cnt==0&&y>x, While[zr=1/(m/n-1/x-1/y); cnt==0&&zr>y, If[IntegerQ[zr], z=zr; If[OddQ[x y z], cnt++; AppendTo[xLst, x]; AppendTo[yLst, y]; AppendTo[zLst, z]]]; y++ ]; x++ ]; If[cnt==0, AppendTo[xLst, 0]; AppendTo[yLst, 0]; AppendTo[zLst, 0]]]; xLst

Crossrefs

Cf. A075259, A075261, A075262.

Sequence in context: A131507 A203998 A257371 * A054847 A335266 A067782

Adjacent sequences: A075257 A075258 A075259 * A075261 A075262 A075263

Keyword

nice,nonn

Author

T. D. Noe, Sep 10 2002

Status

approved