#从百科全书的问候序列行!本次搜索:id:a0909925 显示1-1的1 ;%I a090925;%S a090925 1,4,5,5,6,6,7,8,8,9,2,2,3,14,14,15,16,16,17,17,18,19,19,20,21,22,23,24,25,25,10,23,24,25,10,11,12,13,32,;%T a090925 33,34,34,35,36,37,37,38,38,39,39,40,40,41,42,43,44,45,46,46,47,48,49,26,26,26,26,34,34,34,,27,28,29,30,31, %U a090925 58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80 %N a090925自然数置换由方形螺旋而生。;%C A090925将自然数自然数写成方形逆时针螺旋线:;%C A090925。;%C A090925 17--16--15--14--1313 13;%C A090925 | |;%C a0990925 | |;%C a0990925 18 5---4---3 12 12;%C a0990925 | 124; 124;;;;%C A090925 19 19 6 1 1—2 11;%C A09090925。;%C A090925 |;| | 124; | |%C A090925 20 7---8---9--10 %CA090925 | %C A090925 21--22--23--24--25 %C A090925。 %C A090925现在以一个正方形的逆时针螺旋线读出数字:1->4->5->6->7->8->9->2->3->14->等等。 %H A090925 Eric M.Schmidt,n=1..1000的n,a(n)表%A090925与[{x=Floor[(Floor[Floor[Sqrt[n-1]]+1)/2]]},表[若[n+2*x<=(2*x+1)^2,n+2*x x,n-6*x],{n,1,75}]](*G.C.Greubel U,2019年2月5日*2月5日*);%o A090925(Sage);%o A090925 DEFA(n):;%o A090925 DEFA(n:n):;%o A090925 x=(isqrt(n-1)+1),{2;%1,%%%2;%1,%%%1,%%2 %1,1,1 o A090925如果n+2*x<=(2*x+1)^2否则n-6*x %o A090925[a(n)代表n in(1..75)]#u Eric M.Schmidtŧ18 2016年18月18日;%o A090925(PARI){s(n)=((sqrtint(n-1)+1)/2)\1};;%o A090925 for(n=1,75,print1(若(n+2*s(n)<=(2*s(n)+1)^2,n+2*s(n),n-6*s(n)),“,”,“,”)\\\ G.C.Greubel U2019年2月5日,%Y A090925 Cf A02070703,A090861,A090915,A090915,A020703,A090861,A090915,A090915,n+2*2*s(n)),,“,“,“,“,“,A090928,A090929,A090930。 %K A090925 easy,Non %o A090925 1,2 %A A090925 Felix Tubiana(fat2(AT)columbia.edu),2004年2月26日 %EA090925偏移量由_ericm.Schmidt_更正,2016年5月18日 #内容根据OEIS最终用户许可协议提供:http://OEIS.org/License