|
- Table[{v,CenterDot@@(Superscript@@@FactorInteger[v]),N[v/Pi,10]},{v,Select[2*Range@5000-1,Mod[N[#/Pi,10],1]<0.001&&CompositeQ[#]&&Length@Divisors[#]>2&]}]//MatrixForm
复制代码
\[\left(
\begin{array}{ccc}
355 & 5^1\cdot 71^1 & 113.0000096 \\
1065 & 3^1\cdot 5^1\cdot 71^1 & 339.0000288 \\
1775 & 5^2\cdot 71^1 & 565.0000480 \\
2485 & 5^1\cdot 7^1\cdot 71^1 & 791.0000672 \\
3195 & 3^2\cdot 5^1\cdot 71^1 & 1017.000086 \\
3905 & 5^1\cdot 11^1\cdot 71^1 & 1243.000106 \\
4615 & 5^1\cdot 13^1\cdot 71^1 & 1469.000125 \\
5325 & 3^1\cdot 5^2\cdot 71^1 & 1695.000144 \\
6035 & 5^1\cdot 17^1\cdot 71^1 & 1921.000163 \\
6745 & 5^1\cdot 19^1\cdot 71^1 & 2147.000182 \\
7455 & 3^1\cdot 5^1\cdot 7^1\cdot 71^1 & 2373.000202 \\
8165 & 5^1\cdot 23^1\cdot 71^1 & 2599.000221 \\
8875 & 5^3\cdot 71^1 & 2825.000240 \\
9585 & 3^3\cdot 5^1\cdot 71^1 & 3051.000259 \\
\end{array}
\right)\] |
|