求100-500内所有素数的个数?

这个问题要编程进行运算
用mathematica编程
s = 0; For[i = 100, i <= 500, i++,
If[PrimeQ[i], s = s + 1]
]; s
结果：s=70
即100-500内共有70个素数

101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499

共70 个