|
|
|
|
#82通过OEIS服务器2022年11月17日星期四10:02:00 EST |
| 链接
|
Charles R Greathouse IV,<a href=“/A007416号/b007416号_2.txt“>n表,n=1..100000时a(n)</a>(前1000来自T.D.Noe,后10000来自David a.Corneth)
|
|
|
|
#81通过迈克尔·德弗利格2022年11月17日星期四10:02:00 EST |
|
|
讨论
|
11月17日星期四
| 10:02
| OEIS服务器:已安装新的b文件,格式为b007416.txt。旧的b文件现在为b007416_2.txt。
|
|
|
|
#80个通过查尔斯·格里特豪斯四世2022年11月17日星期四09:53:15 EST |
|
|
|
#79通过查尔斯·格里特豪斯四世2022年11月17日星期四09:52:26 EST |
| 链接
|
大卫查尔斯 R(右) Greathouse公司 A类.科内斯四、,<a href=“/A007416号/b007416号_2.txt“>n表,n=1时为a(n)。。10000100000</a>(前1000 条款来自T.D.Noe 和 到 10000 从 大卫 A类.科内斯)
|
| 黄体脂酮素
|
(PARI)
A283980型(n,f=因子(n))=prod(i=1,#f~,my(p=f[i,1]);如果(p==2,6,下一素数(p+1))^f[i,2])
A025487do(e)=我的(v=列表([1,2]),i=2,u=2^e,t);当(v[i]!=u时,如果(2*v[i]<=u,则列表输入(v,2*v[i]);t吨=A283980型(v[i]);如果(t<=u,列表输入(v,t));i++);设置(v)
winnow(v,lim=v[#v])=my(m=Map(),u=List());对于(i=1,#v,如果(v[i]>lim,break);我的(t=numdiv(v[i]));如果(!mapisdefined(m,t),则mapput(m,t,0);列表(u,v[i]));m=0;Vec(u)(车辆)
列表(lim)=winnow(A025487do(logint(lim\1-1,2)+1),lim)\\查尔斯·格里特豪斯四世2022年11月17日
|
| 交叉参考
|
参见。A005179号,A025487号,A099317号,A099312号,1993年,A099316型,A099318号.
|
| 状态
|
经核准的
编辑
|
|
|
讨论
|
11月17日星期四
| 09:53
| 查尔斯·格里特豪斯四世:这不是一个很好的程序,但它可以完成任务。
|
|
|
|
#78通过查尔斯·格里特豪斯四世2022年11月17日星期四09:24:24 EST |
|
|
|
#77个通过查尔斯·格里特豪斯四世2022年11月17日星期四09:24:22 EST |
|
|
|
#76通过迈克尔·德弗利格2022年8月16日星期二上午10:09:37 |
|
|
|
#75通过宋嘉宁2022年8月16日星期二08:13:29 EDT |
|
|
|
#74通过宋嘉宁2022年8月16日星期二美国东部夏令时08:06:33 |
|
|
|
#73通过乔格·阿恩特2022年8月16日星期二07:46:07 EDT |
|
|
|