引数までの素数のリストを生成する最も単純な関数は何ですか? たとえば、次のような関数を思い付くのは難しくありません。
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]
。これは可能ですか?