|
| |
|
| A242523型 |
| S={1,2，…，n}的循环排列数，使得任意两个相邻之间的差至少为3。 |
|
16
|
|
|
|
0, 0, 0, 0, 0, 0, 1, 11, 125, 1351, 15330, 184846, 2382084, 32795170, 481379278, 7513591430, 124363961357, 2176990766569, 40199252548280, 781143277669538, 15937382209774353, 340696424417421213, 7616192835573406931, 177723017354688250713, 4321711817908214684734
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,8
|
|
|
评论
|
a（n）=NPC（n；S；P）是由n个元素组成的特定集合S和特定对属性P的所有邻域属性循环的计数。有关更多详细信息，请参阅链接和A242519型.
|
|
|
链接
|
|
|
|
例子
|
具有此性质的最短循环的长度为n=7:{1,4,7,3,6,2,5}。
|
|
|
数学
|
A242523型[n_]：=计数[Map[lpf，Map[j1f，Permutations[Range[2，n]]]，0]/2；
j1f[x_]：=连接[{1}，x，{1}]；
lpf[x_]：=长度[Select[Abs[Differences[x]]，#<3&]]；
（*OR，一种不太简单但更高效的实现。*）
A242523型[n_，perm_，remain_]：=模块[{opt，lr，i，new}，
如果[remain=={}，
如果[Abs[First[perm]-Last[perm]]>=3，ct++]；
返回[ct]，
opt=保持；lr=长度[remain]；
对于[i=1，i<=lr，i++，
new=第一个[opt]；opt=休息[opt]；
如果[Abs[Last[perm]-new]<3，则继续[]]；
补码[Range[2，n]，perm，{new}]]；
];
返回[ct]；
];
];
|
|
|
黄体脂酮素
|
（C++）请参阅链接。
|
|
|
交叉参考
|
囊性纤维变性。A242519型,A242520型,A242521型,242522英镑,A242524型,A242525型,A242526型,A242527型,A242528型,A242529型,A242530型,A242531型,A242532型,A242533型,A242534型.
|
|
|
关键词
|
非n,坚硬的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
