1、首先 ，给出一维素数列表：list=Table[Prime[n],{n,20}]再给出二维素数列表：list0=Table[{n,Prime[n]},{n,20}]
2、用InterpolatingPolynomial 把前20个素数拟合为关于x的多项式倦虺赳式，并作出这个多项式的图像。用这个多项式来检测前30个素数，发现结果很不靠谱！看来，拟合多项式是不可能得到素数柬缰缣挞公式的！
3、用Interpolation 来对前20个素数进行插值拟合，得到函数f[x]，并画出这个函数图像，把素数的散点图也画出来。代入具体的数值，发现数值已经脱离常态，变成负数了。
4、用ListFit拟合前20个素数，并把拟合方向指定为对数函数和正比例函数的线性组合，检测一下，误差不少。
5、用FindFormula可以野蛮地给出前20个素数的一个近似公式，不过，可惜的是，这个代码运行多次，得到的结果是不同的。
