24/04/14 03:54:29.80 T4z17oY+.net
>>152
>>152
力作のレスありがとうございます。
Wolfram言語での結果
m=Table[Length[IntegerDigits[n!,2]],{n,2024}]
b=Table[First[IntegerDigits[a]],{a,m}]
Table[Count[b,c],{c,1,9}]
In[3]:= Table[Count[b,c],{c,1,9}]
Out[3]= {1030, 140, 131, 128, 124, 120, 119, 117, 115}
と合致しました。
Benfordの法則が成り立っています。