登录
1..n的排列数,其中每对相邻数以及第一个和最后一个项都是相对素数。

%I#24 2023年5月5日09:25:46

%S 1,2,6,8,60,24504576648057602423529331262000645612544,

%电话:95294880136249344136874926085022425088693149184000472559616000,

%电话:18501259714560234412032983044357597982720001568692666368000223460121088000317576826394214400

%N 1…N的排列数,其中每对相邻数以及第一个和最后一个项都是相对素数。

%C a(n)=n*A086595(n)。

%e a(4)=8,因为我们有1234、1432、2143、2341、3214、3412、4123和4321。

%p with(combint):对于从1到7的n,做p:=置换(n):ct:=0:对于从1至n的j!do如果加(gcd(P[j][i+1],P[j][i]),i=1..n-1)=n-1并且gcd(P[j][1],P[j][n])=1,那么ct:=ct+1,否则ct:=ct fiod:a[n]:=ct:od:seq(a[n',n=1..7);

%t{1}~Join~Array[Count[Permutations@Range@#,w_/;AllTrue[Map[RotateLeft[w,#][[1;;2]&,w],CoprimQ@#&]]&,8,2](*_Michael De Vlieger_,2017年9月25日*)

%Y参考A086595、A076220。

%K nonn公司

%O 1,2号机组

%德国作家协会(与雷·钱德勒、弗拉德塔·乔沃维奇、勒罗伊·奎特、扎克·塞多夫和约书亚·扎克合作),2005年4月9日

%雷·钱德勒和约书亚·扎克的E a(15)和a(16),2005年4月12日

%E a(17)-a(24)摘自Max Alekseyev,2005年6月13日

%E a(25)-a(26)(使用A086595),来自_Alois P.Heinz,2023年5月5日