|
| |
|
| A051636号 |
| 交替群A_n的“标记”循环子群的数量。 |
|
7
|
|
|
|
1, 1, 2, 8, 32, 167, 947, 6974, 53426, 454682, 4303532, 50366912, 553031624, 6760260236, 90333982832, 1369522152392, 20986020606632, 350528387240264, 5751957395258096, 111685506968916032, 2139383543480892032, 41770889787378732752, 869742098042083451264
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
偏移
|
1,3
|
|
|
链接
|
|
|
|
配方奶粉
|
a（n）=1/2*和{pi}（1+（-1）^（k_2+k_4+…））*n/（k_1！*1^k_1*k_2！*2^k_2*…*k_n！*n^k_n*phi（lcm{i:k_i！=0}）），其中pi贯穿所有分区k_1+2*k_2++n*k_n=n，φ是欧拉函数。
|
|
|
MAPLE公司
|
b： =proc（n，i，m，t）选项记忆`如果`（n=0，（1+（-1）^t）/numtheory
[φ]（m），加上（1/j！/i^j*b（n-i*j，i-1，ilcm（m，`if`（j=0，1，i）），
irem（t+j*irem（i+1，2），2）），j=`if`（i=1，n，0..n/i））
结束时间：
a： =n->n*b（2，1，0）/2：
|
|
|
数学
|
f[list_]：=总计[list]/（应用[Times，list]*应用[Times，Map[Length，Split[list]]！]）/EulerPhi[Apply[LCM，list]]；表[Total[Map[f，
选择[Integer Partitions[n]，EvenQ[Length[Select[#，EvenQ[#]&]]&]]，{n，1，21}](*杰弗里·克雷策2015年10月3日*）
b[n_，i_，m_，t_]：=b[n，i，m，t]=如果[n==0，（1+（-1）^t）/
EulerPhi[m]，如果[i==0，0，总和[1/j！/i^j*b[n-i*j，i-1，LCM[m，
如果[j==0，1，i]]，Mod[t+j*Mod[i+1，2]]，{j，Range[0，n/i]}]]；
a[n]：=n！b[n，n，1，0]/2；
|
|
|
黄体脂酮素
|
（PARI）\\permcount是给定类型的排列数。
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}
a（n）={my（s=0）；对于部分（p=n，如果（总和（i=1，#p，p[i]-1）%2==0，s+=permcount（p）/eulerphi（lcm（Vec（p））））；s}\\安德鲁·霍罗伊德2018年7月3日
|
|
|
交叉参考
|
|
|
|
关键词
|
容易的,非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
