Select[Range@100, PrimeQ]で次が帰ります（UMMでも確かめられます）。
{2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41,
43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97}
言語自体の強さとライブラリの充実度のどちらが利いているのかがわかりにくい例ですが。
No related posts.
100までの整数から素数を列挙せよ（Mathematica編）
inquisitor
{informa,computa,evolu}tion
