Search: id:A075247
Results 1-1 of 1 results found.

%I A075247
%S A075247 12,6,20,42,210,42,90,240,1122,156,468,812,3660,420,510,2070,9120,930,
%T A075247 1806,4422,19182,1806,2100,8372,35910,3192,9048,14520,61752,5256,9900,
%U A075247 23562,99540,8190,22940,36290,152490,12210,6314,53592,224202,17556
%N 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.
%C A075247 See A073101 for more details.
%t A075247 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
%Y A075247 Cf. A073101, A075245, A075246.
%Y A075247 Sequence in context: A051725 A070292 A084067 this_sequence A040135 A004015 
               A119870
%Y A075247 Adjacent sequences: A075244 A075245 A075246 this_sequence A075248 A075249 
               A075250
%K A075247 hard,nice,nonn
%O A075247 3,1
%A A075247 T. D. Noe (noe(AT)sspectra.com), Sep 10 2002

Search completed in 0.001 seconds