登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
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] ;
表[a[n],{n,0,8}](*罗伯特·P·麦克科内2024年1月12日*)
黄体脂酮素
(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
定义A368958型(n) :
如果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日
交叉参考
囊性纤维变性。A076220型,A103839号,A367704型.
关键词
非n,更多
作者
鲍勃·安德列塞,2024年1月10日
扩展
a(14)-a(25)来自阿洛伊斯·海因茨2024年1月11日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年6月21日12:41。包含373544个序列。(在oeis4上运行。)