|
|
A368958型 |
| [n]的置换数,其中每对相邻元素是互质的,且不因素数不同而不同。 |
|
2
|
|
|
1, 1, 2, 2, 2, 10, 4, 28, 6, 42, 40, 348, 42, 1060, 226, 998, 886, 21660, 690, 57696, 4344, 26660, 22404, 1091902, 12142, 1770008
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,3
|
|
评论
|
图中哈密顿路径的数目,其中节点表示数字(1,2,3,…,n),边连接每对互素且不相差素数的节点。
|
|
链接
|
|
|
例子
|
a(5)=10:15432、21543、23451、32154、34512、43215、45123、51234、54321、12345。
a(6)=4:432156651234654321123456。
|
|
数学
|
a[n]:=a[n]=模块[{b=0,ps},ps=置换[范围[n]];Do[If[Module[{d},AllTrue[Partition[pe,2,1],(d=Abs[#[2]]-#[1]];!PrimeQ[d]&&ComprimeQ[#[[1]],#[2]])&]],b++],{pe,ps}];b] ;
|
|
黄体脂酮素
|
(PARI)okperm(perm)={对于(k=1,#perm-1,如果(isprime(abs(perm[k]-perm[k+1]))),返回(0);如果(
a(n)={my(nbok=0);对于(j=1,n!,perm=numtoperm(n,j);如果(okperm(perm),nbok++););返回(nbok);}
(Python)
从数学导入gcd
从sympy导入isprime
如果n<=1:返回1
clist=元组({j代表范围(1,n+1)中的j,如果j!=i和gcd(i,j)==1且不是无素数(abs(i-j))}代表范围(1n+1)内的i))
定义f(p,q):
如果(l:=len(p))==n-1:屈服len(clist[q]-p)
对于clist[q]-p中的d,如果设置了l(范围(1,n+1))-p:
f(p{d},d-1)的产量
返回和(f(set(),0))#柴华湖,2024年1月19日
|
|
交叉参考
|
|
|
关键词
|
非n,更多
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|