Mathematica - 生成一个极限列表

Question

生成参数列表的最简单函数是什么？不难想出这样的功能,例如:

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].这可能吗？

Answer 1

例如

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

用法

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