%I#36 2019年10月25日11:16:43

%S 0,1,2,1,2,1,2,2,3,2,3,3,4,3,2,4,3,1,3,32,3,4,1,3,12,3,5,4,5,6,4,3，

%第4,5,6,5,4,3,4,5,6,5,4,4,5,6,7,6,5,4,5,6,7,7,6,5,4,5,6,7,7,6,5,4,5,6,7,7,7,7,6,6,5,5,5,5,5,6,7,7,7,6,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5，

%U 4,5,6,7,8,7,6,5,4,5,10,6,7，8,9,8,6,6,8,5,5,6，7,8，9,10,9,8，7,6,10,5,六，7,8,10,9，8,7,10,6，5,6,10

%N曼哈顿距离，N和1之间的距离为正数，中间为1。

%C螺旋开始：

%C 49 26—27—28—29—30—31

%抄送|||

%C 48 25 10--11--12--13 32

%C|||||

%C 47 24 9 2----3 14 33

%C||||||

%C 46 23 8 1 4 15 34号

%C||||||

%C 45 22 7----6---5 16 35

%C|||（C）|

%C 44 21—20—19—18—17 36

%C ||

%C 43—42—41—40—39—38—37

%H Michael De Vlieger，n的表格，n=1..10201的a（n）</a>

%F abs（a（n）-a（n-1））=1。

%F对于n>1，a（n）=层（n）+abs（（n-1）mod（2*层（n_Karl R.Stephan，2018年1月26日

%F a（n）=abs（A174344（n））+abs（A274923（n）_Kevin Ryde，2019年10月25日

%tf[n_]：=块[{o=2n-1，t，w}，t=表[0，{o}，{o}]；t=替换部件[t，｛n，n｝->1]；Do[w=分区[范围[（2（#-1）-1）^2+1，（2#-1）^2]，2（#-1）]&@k；Do[t=ReplacePart[t，{（n+k）-（j+1），n+（k-1）}->#[1，j]]]；t=替换部件[t，{n-（k-1），（n+k）-（j+1）}->#[2，j]]]；t=替换部件[t，{（n-k）+（j+1），n-（k-1）}->#[3，j]]]；t=替换部件[t，{n+（k-1），（n-k）+（j+1）}->#[[4，j]]，{j，2（k-1，}]&@w，{k，2，n}]；t] ；带有[{x=位置[#，1][[1]]}，表[Total@Abs[Position[#，n][1]]-x]，{n，Max@#}]]&@f@6（*_Michael De Vlieger_，2018年2月16日*）

%o（PARI）a（n）=n--；my（m=平方（n），k=天花板（m/2））；n=abs（n-4*k^2）；k+abs（n-if（n>m，3,1）*k）；\\_Kevin Ryde，2019年10月25日

%Y参见A137928、A137930、A13793、A002061、A114254、A214176、A214177。

%K nonn，简单

%氧1,3

%A _Alex Ratushnyak，2012年8月8日