|
| |
|
| A005326号 |
| “互质？”矩阵的恒等式。
（原名M2382）
|
|
7
|
|
|
|
1, 1, 3, 4, 28, 16, 256, 324, 3600, 3600, 129744, 63504, 3521232, 3459600, 60891840, 91240704, 8048712960, 3554067456, 425476094976, 320265446400, 12474417291264, 16417666704384, 2778580249611264, 1142807773593600, 172593628397420544
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
评论
|
互质矩阵M=[M（i，j）]是一个平方矩阵，如果gcd（i，j）=1，则由M（i、j）=1定义。
|
|
|
参考文献
|
N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。
|
|
|
链接
|
卡尔·波梅兰斯，互质置换，arXiv:2203.03085[math.NT]，2022。
Ashwin Sah和Mehtaab Sawhney，枚举互质置换，arXiv:2203.06268[math.NT]，2022。
|
|
|
配方奶粉
|
|
|
|
MAPLE公司
|
Jackson2:=进程（n）局部m，i，j，m，p，b，s，x；
如果0=（n mod 2），则；
m：=无/2；
M：=矩阵（M，M，0）；
对于i从1到m do，对于j从1到mdo；
如果1=igcd（2*i，2*j-1），则M[i，j]：=1；fi；od；od；
s：=线性代数[永久]（M）；
返回s^2；
其他；
m:=（n+1）/2；
M：=矩阵（M，M，0）；
对于i从1到m-1 do，对于j从1到m do；
如果1=igcd（2*i，2*j-1），则M[i，j]：=1；fi；od；od；
对于j到m do
M[M，j]：=x[j]；
结束do；
p:=线性代数[永久]（M）；
b:=[]；
对于j到m do
b:=[op（b），系数（p，x[j]）]；
结束do；
s：=0；
对于i从1到m do，对于j从1到mdo；
如果1=igcd（2*i-1，2*j-1），则s：=s+b[i]*b[j]；fi；od；od；fi；
返回s；
结束；
|
|
|
数学
|
perm[m_？MatrixQ]：=使用[{v=数组[x，长度[m]]}，系数[Times@@（m.v），Times@@v]]；a[n_]：=perm[表格[Boole[GCD[i，j]==1]，{i，1，n}，{j，1，n}]]；表[an=a[n]；打印[an]；an，{n，1，24}](*Jean-François Alcover公司2011年11月15日*）
（*或，如果版本>=10:*）
|
|
|
黄体脂酮素
|
（PARI）permRWNb（a）=n=材料尺寸（a）[1]；如果（n==1，则返回（a[1，1]）；sg=1；nc=0；in=矢量v（n）；x=英寸；x=a[，n]-总和（j=1，n，a[，j]）/2；p=触头（i=1，n，x[i]）；对于（k=1，2^（n-1）-1，sg=-sg；j=估值（k，2）+1；z=1-2*英寸[j]；单位[j]+=z；nc+=z；x+=z*a[，j]；p+=触头（i=1，n，x[i]，sg）；返回（2*（2*（n%2）-1）*p）
对于（n=1,26，a=矩阵（n，n，i，j，gcd（i，j）==1）；print1（permRWNb（a）“，”）\\Herman Jamke（hermanjamke（AT）fastmail.fm），2007年5月13日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,美好的
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
