登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
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
链接
阿洛伊斯·海因茨,n=1..1000时的n,a(n)表(克拉克·金伯利(Clark Kimberling)的前400条条款)
例子
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)):
seq(a(n),n=1..30)#阿洛伊斯·海因茨2014年10月16日
数学
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]
m=4;表[t[m,n],{n,1,z}](*A248822型*)
交叉参考
关键字
非n,容易的
作者
克拉克·金伯利2014年10月15日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年4月24日07:35。包含371922个序列。(在oeis4上运行。)