|
|
|
|
|
|
|
|
|
#24通过查尔斯·格里特豪斯四世2022年9月8日星期四08:46:24 EDT |
|
| 黄体脂酮素
|
(MAGMA公司岩浆)a:=[]；对于[0..50]中的n，do p:=2；而#[k:k in[2..Floor（Sqrt（p））]|IsPrime（p mod k^2）]ne n do p:=下一个Prime（p）；结束while；追加（~a，p）；结束；a//马吕斯·A·伯蒂2019年11月11日
|
|
|
|
|
讨论
|
| 2008年9月星期四
| 08:46
| OEIS服务器: https://oeis.org/edit/global/2944
|
|
|
|
|
|
|
#23个通过苏珊娜·库勒2020年8月23日星期日04:00:55 EDT |
|
|
|
|
|
|
|
#22通过Jean-François Alcover公司2020年8月22日星期六03:11:46 EDT |
|
|
|
|
|
|
|
#21通过Jean-François Alcover公司2020年8月22日星期六03:11:38 EDT |
|
| 数学
|
b[n]：=b[n]=(*A329309型*)选择[Range[2，Sqrt[n]//Floor]，PrimeQ[Mod[n，#^2]]&]//长度；
a[n_]：=对于[p=2，True，p=NextPrime[p]，如果[b[p]==n，打印[n，“，p]；返回[p]]]；
a/@范围[0100](*Jean-François Alcover公司2020年8月22日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#20通过彼得·卢什尼2019年11月13日星期三16:49:54 EST |
|
|
|
|
|
|
|
#19通过马吕斯·A·伯蒂美国东部时间2019年11月13日星期三16:31:00 |
|
|
|
|
|
|
|
#18通过马吕斯·A·伯蒂2019年11月13日星期三16:30:51 EST |
|
| 黄体脂酮素
|
（MAGMA）a:=[]；对于[0..50]中的n，做p:=2；而#[k:k-in[2..Floor（Sqrt（p））]|IsPrime（p mod k^2）]ne n do p:=NextPrime（p）；结束while；追加（~a，p）；结束；一: // _; // _Marius A.Burtea，2019年11月11日
|
|
| 状态
|
提议的
编辑
|
|
|
|
|
|
|
#17通过罗伯特·伊斯雷尔2019年11月13日星期三16:26:17 EST |
|
|
|
|
|
|
|
#16通过罗伯特·伊斯雷尔2019年11月13日星期三16:26:10 EST |
|
| 例子
|
a（3）=5323因为A329308型(5323)=3和5323是具有此属性的最小素数。
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#15通过OEIS服务器2019年11月11日星期一13:51:32 EST |
|
| 链接
|
Robert Israel，<a href=“/A329309型/b329309号_1.txt“>对于n=0..325，n，a（n）的表格</a>
|
|
|
|
|
|
