|
|
A248822型 |
| 除以1的整数k^4的数目*2!*3!*...*不!。 |
|
5
|
|
|
1, 1, 1, 2, 3, 8, 10, 36, 64, 200, 432, 630, 1088, 4800, 7590, 32448, 47040, 114240, 164160, 835920, 1302840, 4804800, 7091712, 25243920, 39168000, 171555840, 320973840, 667447200, 1113944832, 3338108928, 5181926400, 19372953600, 31804416000, 132562944000
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
链接
|
|
|
例子
|
a(6)计算这些整数k^4除以24883200:1^4,2^4,4^4,8^4,6^4,12^4,24^4。
|
|
MAPLE公司
|
b: =proc(n)选项记住;添加(i[2]*x^numtheory[pi](i[1]),
i=ifactors(n)[2])+`if`(n=1,0,b(n-1))
结束时间:
c: =proc(n)选项记忆;b(n)+`if`(n=1,0,c(n-1))结束:
a: =n->(p->mul(iquo(系数(p,x,i),4)+1,i=1..度(p)))(c(n)):
|
|
数学
|
z=40;p[n_]:=乘积[k!,{k,1,n}];
f[n_]:=f[n]=系数整数[p[n]];
r[m_,x_]:=r[m,x]=m*楼层[x/m]
u[n_]:=表[f[n][[i,1]],{i,1,长度[f[n]}];
v[n_]:=表[f[n][[i,2]],{i,1,长度[f[n]]}];
t[m_,n_]:=应用[时间,1+r[m,v[n]]/m]
|
|
交叉参考
|
|
|
关键字
|
非n,容易的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|