|
|
|
|
|
|
|
|
|
#112通过R.J.马塔尔2024年6月6日星期四11:15:22 EDT |
|
|
|
|
|
|
|
#111通过R.J.马塔尔2024年6月6日星期四10:55:21 EDT |
|
|
|
|
|
讨论
|
| 2006年6月4日
| 11:05
| 托马斯·谢伊尔：我认为A0002774（k）=10^k的除数，但这不是这个序列的a（10^n）=A002774（n），对吗？
|
|
| 11:15
| R.J.马塔尔：同意。。错误的注释
|
|
|
|
|
|
|
#110通过R.J.马塔尔美国东部时间2024年6月6日星期四10:55:18 |
|
|
|
|
|
|
|
#109通过R.J.马塔尔2024年6月6日星期四上午10:34:35 |
|
|
|
|
|
|
|
#108通过R.J.马塔尔2024年6月6日星期四上午10:34:14 |
|
| MAPLE公司
|
#备选方案
#构造n的因式分解的有序列表
#最小除数思想。
#返回带有A001055号（n） 如果调用时有意识，则输入=2。
#示例：打印（ofat（10^3，2））
动作：=程序（n，思维）
当地fcts，d，rec，r；
fcts：=[]；
对于numtheory中的d[除数]（n）do
如果d>=那么
如果d=n，则
fcts：=[op（fcts），[n]]；
其他的
#递归调用假定现在又修复了一个因子
记录：=程序名（n/d，最大值（d，心智））；
对于rec-do中的r
fcts：=[op（fcts），[d，op（r）]]；
结束do：
结束条件：；
结束条件：；
结束do：
返回fcts；
结束进程：
A005179号：=进程（n）
本地Lexp，a，eList，cand，maxxrt；
如果n=1，则
返回1；
结束条件：；
Lexp:=acat（n，2）；
a:=0；
对于Lexp do中的eList
maxxrt:=列表工具[反向]（eList）；
cand：=mul（ithprime（i）^（op（i，maxxrt）-1），i=1..nops（maxxrt；
如果a=0或cand<a，则
a:=cand；
结束条件：；
结束do：
a；
结束进程：
序列(A005179号（n） ，n=1..40）#R.J.马塔尔，2024年6月6日
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#107通过迈克尔·德弗利格2023年7月5日星期三15:46:45 EDT |
|
|
|
|
|
|
|
#106通过查尔斯·格里特豪斯四世2023年7月5日星期三15:44:40 EDT |
|
|
|
|
|
|
|
#105通过查尔斯·格里特豪斯四世美国东部时间2023年7月5日星期三15:43:58 |
|
| 评论
|
后续全部 条款 是 属于在里面 A025487号因此，对于n>1，a（n）是偶数-大卫·A·科内斯2017年6月23日[已更正 通过_查尔斯 R（右） Greathouse公司 四、_,七月 05 2023]
|
|
| 链接
|
David Singmaster，<a href=“/A005178号/a005178.pdf“>给N.J.A.Sloane的信，10月三031982
|
|
| 黄体脂酮素
|
（平价) {() (prodR（n，maxf）=my（dfs=除数（n），a=[]，r）；对于（i=2，#dfs），如果（dfs[i]<=maxf，如果（dfs[i]==n，a=concat（a，[n]]），r=prodR（n/dfs[i]，min（dfs[i]，maxf））；对于（j=1，#r，a=concat（a，[concat（dfs[i]，r[j]）））；a） ；A005179号（n） =my（pf=prodR（n，n），a=1，b）；对于（i=1，#pf，b=prod（j=1，长度（pf[i]），素数（j）^（pf[i][j]-1））；如果（b<a|i==1，a=b））；一}
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
讨论
|
| 2005年7月3日
| 15:44
| 查尔斯·格里特豪斯四世：A025487中的16后面没有12。
|
|
|
|
|
|
|
#104通过米歇尔·马库斯2022年6月16日星期四09:18:08 EDT |
|
|
|
|
|
|
|
#103通过约尔格·阿恩特2022年6月16日星期四05:57:20 EDT |
|
|
|
|
|
|
