搜索： a052152-编号：a052153
|
| |
| |
|
|
|
1, 2, 32, 528, 131328, 22377984, 91628068864, 187650529822720, 12297831583666176000, 322380224569805856440320, 338040160454396241027914530816, 118153599638221082814732598131032064, 1982288462105132553530631056140022239461376
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1, 2
|
|
|
链接
|
|
|
|
数学
|
permcount[v_List]：=模块[{m=1，s=0，k=0，t}，对于[i=1，i<=长度[v]，i++，t=v[i]]；k=如果[i>1&&t==v[[i-1]]，k+1，1]；m*=t*k；s+=t]；s/m] ；
边[v_List]：=4和[Sum[GCD[v[i]]，v[[j]]]，{j，1，i-1}]，{i，2，长度[v]}]+和[2 v[[i]]-1，{i；
a[n_]：=模[{s=0}，Do[s+=permcount[2p]*4^edges[p]*如果[OddQ[n]，n*16^Length[p]，1]，{p，IntegerPartitions[n，2]}]；序号！]；
|
|
|
黄体脂酮素
|
（PARI）
permcount（v）={my（m=1，s=0，k=0，t）；对于（i=1，#v，t=v[i]；k=if（i>1&&t==v[i-1]，k+1，1）；m*=t*k；s+=t）；s！/m}
边（v）＝{4*sum（i=2，#v，sum（j=1，i-1，gcd（v[i]，v[j]））+sum（i=1，#v，2*v[i]-1）}
a（n）={my（s=0）；对于部分（p=n\2，s+=permcount（2*Vec（p））*4^边（p）*if（n%2，n*16^#p，1））；s/n！}\\安德鲁·霍罗伊德2018年9月17日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.004秒内完成
|
