显示1-1个结果(共1个)。
第页1
1, 6, 20, 72, 72, 72, 20, 72, 72, 17280, 4800, 17280, 72, 17280, 1152000, 5184, 5184, 5184, 96000, 5184, 345600, 1244160, 320000, 1244160, 82944000, 89579520, 71663616000, 298598400, 1244160, 82944000, 23040000, 82944000, 19906560000
评论
多诱导PF_(p1,p2,…)。。。
对于每个n,我们定义了一个辅助序列b(k),从b(0)=2^n开始,通过b(k+1)=A034448号(b(k))/PF_(2,3,5)(A034448号(b(k)),即从单位σ值中重复删除2、3和5的所有幂。b(k)在某个k处终止,b(k)=1。此外,还有一个由c(0)=2^n和递归地c(k+1)=c(k)*PF_(3,5)定义的辅助并行序列c(k(A034448号(b(k))/A006519号(A034448号(b(k)),将2^n减去按序列b划分的2的幂。
序列由a(n)=c(k)定义,辅助序列c位于b终止的点。
例子
n=5
b(n):2^5->11->1
c(n):2^5->2^5*3->2^3*3^2
所以a(5)=c(2)=2^3*3^2=72。
MAPLE公司
PF:=proc(n,p)局部nshf,a;a:=1;nshf:=n;而(nshf mod p)=0执行nshf:=nshf/p;a:=a*p;od:a;结束时间:
b:=[2^n];
而op(-1,b)<>1
日期:
a:=2^n;
对于k从2到nops(b)do
日期:
a;
结束时间:
数学
PF[n_,p_]:=p^整数指数[n,p];
usigma[n_]:=如果[n==1,1,Times@@(1+Power@@@FactorInteger[n])];
b={2^n};
而[b[[-1]]!=1,
t=usigma[b[[-1]]];
b=附加[b,t/PF[t,2]/PF[t,3]/PF[t,5]];
a=2^n;
对于[k=2,k<=长度[b],k++,
t=模糊[b[[k-1]]];
a=a/PF[t,2]*PF[t,3]*PF[t,5]];
a] ;
扩展
a(n)和c(k)之间关系的描述由更正R.J.马塔尔2009年7月7日
搜索在0.005秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日08:46。包含376084个序列。(在oeis4上运行。)
|