%I#13 2020年1月31日10:42:25
%S 0,0,2,2011269650084028036270362760362850439916152479000272,
%电话6227017600871782881288130767434240820922789832080355687427952808,
%电话:64023737052173041216451004073807042432902008173142656510909421716989881761124000727777569109296
%N长度为N的排列数,使得连续元素之间至少有一个绝对差具有不同的伙伴。
%H Jean-François Alcover,n的表格,n=1..40的a(n)</a>
%F a(n)=n!-A006967(n)。
%e a(3)=2,因为只有123和321具有所需的属性,差异为1,1。其余都有1、2的差异。
%t A006967=案例[导入[“https://oeis.org/A006967/b006967.txt“,”表格“],{_,_}][[All,2]];
%t a[n]:=n!-A006967[[n+1]];
%t a/@Range[40](*_Jean-François Alcover_,2020年1月31日*)
%o(PARI){对于(n=3,10,x=向量(n-1);s=0;对于(i=1,n!,v=数值运算(n,i);对于(j=1,n-1,x[j]=abs(v[j+1]-v[j]));x=vecsort(x);fl=0;针对(k=1,n-2,if(x[k]==x[k+1],fl=1;break));如果(fl==1,s++);打印(n“;”s)}
%Y参考A000142、A006967。
%K nonn公司
%氧1,3
%乔恩·佩里(Jon Perry),2003年6月10日
|