什么是最简单的生成素数列表的函数?提出这样的功能并不难,例如:

foo[n_] := Block[{A = {}, p = 2},
           While[p < n, A = Append[A, p]; p = NextPrime[p]];
           A]

但是,这似乎过于困惑。我想做类似的事情
foo[n_] := Table[Prime[i], {i,2,???}]

在哪里 ???是NextPrime[n,-1]的索引。这可能吗?

最佳答案

例如

f[x_] := Prime[Range@PrimePi@x]

用法
Grid[Table[{x, f[x]}, {x, 13, 20}], Frame -> All]

关于wolfram-mathematica - Mathematica-生成最多豪华轿车的素数列表,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/11814011/

10-12 02:20