- 49 名前：１３２人目の素数さん mailto:sage [2024/08/15(木) 17:59:59.43 ID:bFfiJSUV.net]
- n=9;
j[n_] :=(
count=0;
Until[Length@Union@a==2,a=RandomChoice[Range[3],n];count++];
b=Sort@Union@a;
If[b=={1,2}, w=Count[a,2]];
If[b=={2,3}, w=Count[a,3]];
If[b=={1,3}, w=Count[a,1]] ;
{w,count}
)
For[{w,count}=j[n],w>1,k=j[w];w=k[[1]];count=count+k[[2]]]
{w,count}
