|
| |
|
| A306471型 |
| 用w，x，y，z非负整数将n写成C（2w+1,2）+C（x+2,3）+C/（k！*（n-k）！）。 |
|
6
|
|
|
|
1, 3, 3, 2, 4, 6, 5, 4, 4, 5, 7, 8, 6, 4, 5, 8, 8, 5, 4, 6, 7, 10, 10, 6, 6, 12, 13, 8, 7, 7, 6, 11, 9, 4, 3, 8, 16, 12, 8, 9, 9, 13, 14, 10, 7, 9, 18, 12, 6, 5, 4, 11, 10, 4, 2, 5, 19, 21, 11, 9, 13, 20, 16, 9, 6, 8, 17, 17, 4, 2, 9, 20, 17, 6, 9, 9, 15, 23, 14, 9, 15
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
评论
|
猜想1:a（n）>1，对于所有n>0。
我们已经验证了所有n=0..5*10^6的（n）>0。
猜想2：对于每一个r=0，1，任何正整数都可以写成w^2+C（x，3）+C（y，4）+C（z，5），其中w，x，y，z是w-r偶数的非负整数。
|
|
|
链接
|
|
|
|
例子
|
a（0）=1，其中0=C（1,2）+C（2,3）+C。
a（3）=2，其中3=C（3,2）+C（2,3）+C。
a（54）=2，其中54=C（3,2）+C（7,3）+C。
a（69）=1，其中69=C（3,2）+C（5,3）+C。
|
|
|
数学
|
f[m_，n]：=f[m，n]=二项式[m+n-1，m]；
HQ[n_]：=HQ[n]=整数Q[Sqrt[8n+1]]&&Mod[Sqrt[8n+1]，4]==1；
tab={}；Do[r=0；Do[If[f[5，z]>n，转到[cc]]；做[If[f[4，y]>n-f[5，z]，转到[bb]]；做[If[f[3，x]>n-f[5，z]-f[4，y]，转到[aa]]；如果[HQ[n-f[5，z]-f[4，y]-f[3，x]]，r=r+1]，{x，0，n-f[5,z]-f[4，y]}]；标签[aa]，{y，0，n-f[5，z]}]；标签[bb]，{z，0，n}]；标签[cc]；tab=追加[tab，r]，{n，0，80}]；打印[选项卡]
|
|
|
交叉参考
|
囊性纤维变性。A000217号,A000290型,A000292号,A000332号,A000389号,A000797号,A014105号,2013年2月28日,A306460型,A306462型,A306477型.
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
