高校数学の質問スレ Part436

943 ：１３２人目の素数さん：2024/07/14(日) 22:24:04.98 ID:neI1Dpkb.net

>>922
Solve[{1/x+1/y+1/z+1/w==123/456 && 0<=x<=y<=z<=w},{x,y,z,w},Integers]//Length//Timing
{60.1094, 442}
p=123/456;Sum[wi=p-1/x-1/y-1/z;Boole[wi!=0 && IntegerQ[1/wi] && z<=1/wi],{x,Floor[1/p]+1,4/p},{y,x,3/(p-1/x)},{z,y,2/(p-1/x-1/y)}]//Timing
{0.203125, 442}

>>941
1/a+1/b+1/c ≦ 3