|
|
|
|
#22通过查尔斯·格里特豪斯四世2016年10月11日星期二12:21:03 EDT |
|
|
|
#21通过查尔斯·格里特豪斯四世2016年10月11日星期二12:20:58 EDT |
| 链接
|
T.D.Noe,<a href=“/A053012号/b053012.txt“>n表,n为a(n)==1..1000个</a>
|
| 黄体脂酮素
|
(PARI)listpoly(lim,poly[..])=我的(v=列表());对于(i=1,#poly,my(P=poly[i],x=variable(P),f=k->subst(P,x,k),n,t);而(t=f(n++))<=lim,listput(v,t));集合(v)
列表(lim)=我的(n='n);列表多(lim,n*(n+1)*(n+2)/6,n^3,(2*n^3+n)/3,n*\\查尔斯·格里特豪斯四世2016年10月11日
|
| 状态
|
经核准的
编辑
|
|
|
|
#20通过布鲁诺·贝塞利美国东部时间2013年7月10日星期三05:30:16 |
|
|
|
#19通过Jean-François Alcover公司2013年7月10日星期三05:28:35 EDT |
|
|
|
#18通过Jean-François Alcover公司2013年7月10日星期三05:27:53 EDT |
| 数学
|
最大值=2000;四[n]:=n*(n+1)*(n+2)/6;立方体[n]:=n^3;八度[n]:=(2n^3+n)/3;十二碳[n]:=n*(3n-1)*(3n-2)/2;icosa[n]:=n*(5n^2-5n+2)/2;并集[表[tetra[n],{n,1,k/.NSolve[tetra[k]==max,k]//Last}],表[cube[n]、{n,l,max^(1/3{n,1,k/.NSolve[icosa[k]==最大,k]//最后}]](*Jean-François Alcover公司2012年10月11日*)
|
| 状态
|
经核准的
编辑
|
|
|
讨论
|
7月10日星期三
| 05:28
| Jean-François Alcover公司:Tony的解决方案更简单、更快
|
|
|
|
#17个通过莱因哈德·祖姆凯勒2013年6月17日星期一08:39:32 EDT |
|
|
|
#16个通过莱因哈德·祖姆凯勒2013年6月17日星期一08:14:13 EDT |
|
|
|
#15通过莱因哈德·祖姆凯勒美国东部时间2013年6月17日星期一05:55:06 |
| 黄体脂酮素
|
(哈斯克尔)
a053012 n=a053012_list!!(n-1)
a053012_list=尾部$f
[a000292_list、a000578_list、a005900_list,a006566_list和a006564_list]
其中f pss=m:f(映射(dropWhile(<=m))pss)
其中m=最小值(地图标头pss)
--莱因哈德·祖姆凯勒2013年6月17日
|
| 交叉参考
|
柏拉图数的分区数:A226748号,A226749号.
|
| 状态
|
经核准的
编辑
|
|
|
|
#14通过T.D.诺伊2012年10月13日星期六15:11:14 EDT |
|
|
|
#13通过T.D.诺伊2012年10月13日星期六15:09:28 EDT |
| 数学
|
nn=25;t1=表[n(n+1)(n+2)/6,{n,nn}];t2=表[n^3,{n,nn}];t3=表[(2*n^3+n)/3,{n,nn}];t4=表[n(3*n-1)(3*n-2)/2,{n,nn}];t5=表[n(5*n^2-5*n+2)/2,{n,nn}];选择[Union[t1,t2,t3,t4,t5],#<=t1[[-1]]&](*T.D.诺伊2012年10月13日*)
|
| 状态
|
提出
编辑
|
|
|
讨论
|
10月13日星期六
| 2015年11月15日
| T.D.诺伊:我计算不需要的项,但计算速度很快。
|
|
|
|