%I#10 2016年9月8日17:52:02

%S 0,1,3,2,5,4,9,8,7,6,13,12,11,10,18,17,16,15,14,23,22,21,20,19,30,29，

%电话28,27,26,25,24,37,36,35,34,33,32,31,44,43,42,41,40,39,38,52,51,50,49，

%U 48,47,46,45,62,61,60,59,58,57,56,55,54,53,71,70,69,68,67,66,64,63,81,80,79,78,77,76,75,74,73,72

%N自然数的简单自反置换：在a（0）=0之后，按相反顺序列出A260734（N）的每个块，从A260732（N）到A260733（1+N）。

%C A276573和A276574之间的地图。

%H Antti Karttunen，<a href=“/A276572/b276572.txt”>n，a（n）表，n=0..10028</a>

%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>

%F a（0）=0；对于n>=1，a（n）=（A260733（1+A276571（n））-n）+A260732。

%t f[n_]：=NestWhileList[#-（如果[First@#>0，1，Length[First@Split@#]+1]&@SquaresR[Range@4，#]）&，n^2，#！=0 &]; t=表[表[n，{Length[#]-1&@NestWhileList[#-（If[First@#>0，1，Length[第一个@Split@#]+1]&@SquaresR[Range@4，#]）&，（n+1）^2）-1，#！=（n^2）-1&]}]，{n，20}]//Flatten；{0}~连接~表[Length@f@t[[n]]-1+长度@f[t[[n]]+1]-n-2，{n，81}]（*_Michael De Vlieger_，2016年9月8日*）

%o（方案）（定义（A276572 n）（如果（0？n）n（+（-（A260733（+1（A27657 1 n）））n）（A26073（A2765 71 n））

%Y参见A260732、A260733、A260744、A276573和A276574。

%K nonn公司

%0、3

%A _Antti Karttunen，2016年9月7日