%I#10 2021年4月23日07:35:25

%S 1,1,2,3,5,13,29，68165339124937061174939151105714321361，

%电话：938529411258316778058640738122606259009172691643451696842，

%电话：1306837654548655092849

%N绝对位移|p（i）-i|是平方数的[N]的置换p的数目。

%H维基百科，<a href=“https://en.wikipedia.org/wiki/Permutation网站“>排列</a>

%e a（3）=3:123132213。

%e a（4）=5:12341243132421342143。

%e a（5）=13:12345、12354、12435、13245、13254、21345、21354、21435、23451、51234、52341、52431、53241。

%p b:=进程选项记忆；（n->`if`（n=0，1，添加（`if`(

%p issqr（abs（n-j）），b（s减去{j}），0），j=s））（nops（s））

%p端：

%pa:=n->b（{$1..n}）：

%p序列（a（n），n=0..16）；

%t b[s_]：=b[s]=函数[n，如果[n==0，1，总和[If[整数Q@Sqrt[Abs[n-j]]，b[s~互补~{j}]，0]，{j，s}]][长度[s]]；

%t a[n_]：=b[范围[n]]；

%t a/@Range[0，16]（*_Jean-François Alcover_，2021年4月23日，以_Alois P.Heinz_*命名）

%Y参考A000142、A000290、A324372、A324733、A324370、A32437.6。

%K非n

%0、3

%A _Alois P.Heinz，2019年2月25日