|
|
|
|
|
|
|
|
|
#29通过查尔斯·格里特豪斯四世2022年9月8日星期四08:45:17 EDT |
|
| 黄体脂酮素
|
(MAGMA公司岩浆)/*作为三角形*/[[（IsOdd（n）选择NthPrime（n+1），否则选择NthPrime（n-1）））*NthPrice（k）：k in[1..n]]：n in[1..15]]//文森佐·利班迪2018年12月28日
|
|
|
|
|
讨论
|
| 2008年9月星期四
| 08:45
| OEIS服务器: https://oeis.org/edit/global/2944
|
|
|
|
|
|
|
#28通过布鲁诺·贝塞利2018年12月28日星期五03:55:35 EST |
|
|
|
|
|
|
|
#27通过布鲁诺·贝塞利2018年12月28日星期五03:54:13 EST |
|
| 黄体脂酮素
|
（MAGMA）/*作为三角形*/ [[((*/[[(IsOdd（n）选择NthPrime（n+1），否则选择NthPrime（n-1））*NthPrice（k)):):k in[1..n]]：n in[1..15]]//文森佐·利班迪2018年12月28日
|
|
| 状态
|
提出
编辑
|
|
|
|
|
讨论
|
| 12月28日星期五
| 03:55
| 布鲁诺·贝塞利：Piöcura nel copiare e incollare i programmi，Vincenzo，grazie！
|
|
|
|
|
|
|
#26通过文森佐·利班迪美国东部时间2018年12月28日星期五03:53:40 |
|
|
|
|
|
|
|
#25个通过文森佐·利班迪2018年12月28日星期五03:53:31 EST |
|
| 数学
|
T[n_，k_]：=（如果[EvenQ[n]，（素数[n-1]），素数[n+1]]）素数[k]；表[T[n，k]，{n，1，15}，{k，1，n}]//展平(*文森佐·利班迪2018年12月28日*）
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#24通过布鲁诺·贝塞利2018年12月28日星期五03:51:13 EST |
|
|
|
|
|
|
|
#23通过安德烈·扎博洛茨基2018年12月28日星期五03:48:42 EST |
|
|
|
|
|
|
|
#22通过安德烈·扎博洛茨基2018年12月28日星期五03:48:36 EST |
|
|
|
|
|
|
|
#21通过安德烈·扎博洛茨基2018年12月28日星期五03:41:39 EST |
|
| 数学
|
a[1]=素数[2]
a[n_]：=a[n]=如果[Mod[n，2]==0，素数[n-1]，-素数[n+1]]
数字=25
aa=表[表[素数[n]*a[m]，{n，1，m}]，{m，1，数字}]
压扁[Abs[aa]]
|
|
| 状态
|
提出
编辑
|
|
|
|
|
讨论
|
| 12月28日星期五
| 03:48
| 安德烈·扎博洛茨基：代码是正确的（模冗余输出），但太恶心了，最好删除它，尤其是现在我们有了来自Michel和Vincenzo的更好的程序。
|
|
|
|
|
|
|
#20通过文森佐·利班迪2018年12月28日星期五03:37:49 EST |
|
|
|
|
|
|
