急求150之内的质数

[复制链接]
查看11 | 回复1 | 2010-3-18 21:34:49 | 显示全部楼层 |阅读模式
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 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199
回复

使用道具 举报

千问 | 2010-3-18 21:34:49 | 显示全部楼层
In[8]:= Select[Table[N, {N, 1, 150}], PrimeQ]Out[8]= {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, 101, 103, 107, 109, 113, 127, \131, 137, 139, 149}
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行