如何用 mathematica 形成一个素数表文件？

[天山草]

用下面这个语句可以得到前 10 个素数。
For[i = 1, i <= 10, i++, a = Prime[i]; Print[a ];]
运行结果是：
2
3
5
7
11
13
17
19
23
29
我想让运行结果变成：
2 3 5 7 11
13 17 19 23 29
应该怎样改一下程序呢？
另外，我想把运行结果存成一个 txt 数据文件，怎样写程序呢？

[天山草]

呵呵，这么个帖子没有人回复啊？
还是自己来解决问题吧，用下面这个语句，可以下载 98 亿至 100 亿之间的所有素数，需要时间大约半个小时吧。"D:\\SSSSSS\\98-100亿.txt" 是存放这些素数的文件路径和文件名。本人已经下载了 0-2亿，2-4亿，4-6亿，……60-62亿以及 98-100亿。还有一些需要一、二天的时间即可完成。
For[i = 446362737, i <= 455052511, i++,
Write["D:\\SSSSSS\\98-100亿.txt", Prime[i]]];

[markh]

Export["文件名.dat",Prime[Range[1000]]]

呵呵，这么个帖子没有人回复啊？
还是自己来解决问题吧，用下面这个语句，可以下载 98 亿至 100 亿之间的所有素数，需要时间大约半个小时吧。"D:\\SSSSSS\\98-100亿.txt" 是存放这些素数的文件路径和文件名。本人已经下载了 0-2亿，2-4亿，4-6亿，……60-62亿以及 98-100亿。还有一些需要一、二天的时间即可完成。
For[i = 446362737, i <= 455052511, i++,
Write["D:\\SSSSSS\\98-100亿.txt", Prime[i]]];