|
|
|
|
|
|
|
|
|
#25通过海因茨美国东部时间2015年11月2日星期一17:09:23 |
|
|
|
|
|
|
|
#24通过米歇尔·马库斯美国东部时间2015年11月2日星期一12:01:33 |
|
|
|
|
|
|
|
#23通过米歇尔·马库斯美国东部时间2015年11月2日星期一12:01:22 |
|
| 黄体脂酮素
|
（PARI）a（n）={nb=0；forpart（p=n，nb+=（2*#（选择（x->x%2，Vec（p））<#p）；）；nb；}\\米歇尔·马库斯2015年11月2日
|
|
| 状态
|
提出
编辑
|
|
|
|
|
|
|
#22个通过让·弗朗索瓦·阿尔科弗美国东部时间2015年11月2日星期一11:52:14 |
|
|
|
|
|
|
|
#21通过让·弗朗索瓦·阿尔科弗2015年11月2日星期一11:52:05 |
|
| 数学
|
b[n，i，t帴]：=b[n，i，t]=如果[n==0，如果[t<0，1，0]，如果[i<1，0，b[n，i-1，t]+如果[i>n，0，b[n-i，i，t+（2*Mod[i，2]-1]]]]]；a[n帴]：=b[n，n，0]; ];表[a[n]，{n，0，80}](*让·弗朗索瓦·阿尔科弗2015年11月2日，之后海因茨*)
|
|
|
|
|
|
|
#20个通过让·弗朗索瓦·阿尔科弗美国东部时间2015年11月2日星期一11:51:18 |
|
| 数学
|
b[n，i，tüu]：=b[n，i，t]=如果[n==0，如果[t<0，1，0]，如果[i<1，0，b[n，i-1，t]+如果[i>n，0，b[n-i，i，t+（2*Mod[i，2]-1]]]]]；a[n，i，t]=b[n，n，0]；表[a[n]，{n，0，80}](*让·弗朗索瓦·阿尔科弗2015年11月2日，之后海因茨*)
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#十九通过R、 J.马萨美国东部时间2015年10月31日星期六13:38:55 |
|
|
|
|
|
|
|
#十八通过R、 J.马萨美国东部时间2015年10月31日星期六13:38:47 |
|
| 枫木
|
使用（combinat，partition）：evnbigrodd：=proc（n:：nonnegint）local evencount，oddcount，bigcount，parts，i，j；printlevel：=-1；bigcount：=0；partitions:=partition（n）；对于从1到nops（partitions[i]）的j，do if（op（j，partitions[i]）mod 2<>0），则oddcount:=oddcount+1 fi；如果（j，partitions[i]）mod 2=0）则evencount:=evencount+1 fi-od；如果（evencount>oddcount），则bigcount:=bigcount+1 fi-od；printlevel:=1；return（bigcount）结束过程；seq（evnbigrodd（i），i=1..42）；
带（组合，分区）：
evnbigrodd:=proc（n:：nonnegint）
本地平均数，奇数，大数，零件，i，j；
大计数：=0；
分区：=分区（n）；
对于从1到nop（分区）的i
平均数：=0；
奇数：=0；
对于从1到nops（分区[i]）的j
如果（op（j，分区[i]）mod 2<>0），则
奇数：=奇数+1
金融机构；
如果（op（j，分区[i]）mod 2=0），则
平均数：=平均数+1
金融机构
外径；
如果（evencount>oddcount），则
大计数+1
金融机构
外径；
返回（bigcount）
结束程序；
序号（evnbigrodd（i），i=1..42）；
|
|
| 作者
|
_蓝笑脸(笑脸(在)数学.阿拉伯联合酋长国.阿拉斯加.埃杜),_,2005年7月21日
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#17通过海因茨美国东部时间2014年3月30日星期日18:53:17 |
|
|
|
|
|
|
|
#16通过海因茨美国东部时间2014年3月30日星期日18:53:12 |
|
| 链接
|
Alois P.Heinz，<a href=“/A108949号/b108949.txt“>n，a（n）表，n=0..1000</a>
|
|
|
|
|
|
