%I#34 2023年12月24日01:07:19

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

%电话：27,26,31,30,29,34,33,32,37,36,35,40,39,38,43,42,41,46,45,44,49,48,47，

%U 52、51、50、55、54、53、58、57、56、61、60、59、64、63、62、67、66、65、70、69

%N Z字形模3。

%取自然数，交换以2和4开头的三等分。

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/AlternatingPermutation.html“>交替排列。

%H Reinhard Zumkeller，A074066/A074066.ps“>A074066-A0740668插图。

%H<a href=“/index/Rec#order_04”>具有常系数的线性递归索引条目，签名（1,0,1，-1）。

%H<a href=“/index/Per#IntegerPermutation”>为自然数置换序列的索引条目</a>。

%F a（1）=1；对于n>0：a（3*n-1）=3*n+1，a（3*n）=3*n，a（3+1）=3*1。

%F a（a（n））=n（自反转置换）；对于n>1:a（n）=n，当n==0模3时。

%F对于n>1：a（n）=3*层（n/3）+（n mod 3）^2*（-1）^（n mod3）；a（1）=1。

%当n>5时，F a（n）=a（n-1）+a（n-3）-a（n-4）_柴华坞，2016年5月25日

%F对于n>1，a（n）=n-（4/sqrt（3））*sin（2*n*Pi/3）_韦斯利·伊万·赫特，2017年9月29日

%传真：x+x^2*（4-x-x^2+x^3）/（（1+x+x*2）*（x-1）^2）.-_R.J.Mathar，2019年5月22日

%F和{n>=1}（-1）^（n+1）/a（n）=log（2）（A002162）_Amiram Eldar，2023年12月24日

%t a[n_]：=n+Mod[n，3]*（3*Mod[n，3]-5）；a[1]=1；表[a[n]，{n，1，69}]（*Jean-François Alcover_，2011年11月4日*）

%t Join[｛1｝，Flatten[反向/@分区[范围[2,73]，3]]]（*_Harvey P.Dale_，2012年2月17日*）

%o（哈斯克尔）

%o a074066 n=a074066_列表！！（n-1）

%o a074066_list=1:xs其中xs=4:3:2:map（+3）xs

%o--_Reinhard Zumkeller，2011年2月21日

%Y参见A002162、A064429、A074067、A074048。

%不，简单，好

%O 1,2号机组

%A _Reinhard Zumkeller，2002年8月17日