%I#21 2019年5月22日02:30:17
%S 1,2,7,6,5,4,3,12,11,10,9,8,17,16,15,14,13,22,21,20,19,18,27,26,25,24,
%电话23,32,31,30,29,28,37,36,35,34,33,42,41,40,39,38,47,46,45,44,43,52,51,
%U 50,49,48,57,56,55,54,53,62,61,60,59,58,67,66,65,64,63,72,71
%N Z字形模5。
%C a(a(n))=n(自反转置换);
%对于n>1:a(n)=n,当n==0模5时为C。
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/AlternatingPermutation.html“>交替排列</a>
%H Reinhard Zumkeller,A074066-A07404068插图</a>
%H<a href=“/index/Per#IntegerPermutation”>自然数排列序列的索引项</a>
%H<a href=“/index/Rec#order_06”>常系数线性递归索引条目,签名(1,0,0,0,1,-1)
%F a(n)=5*层(n/5)+10*层((n mod 5)/3)-(n mod5)对于n>2;对于n<=2,a(n)=n。
%当n>8时,F a(n)=a(n-1)+a(n-5)-a(n-6)_柴瓦武,2016年5月25日
%传真:x+2*x+x^3*(7-x-x^2-x^3-x^4+2*x^5)/((x^4+x^3+x^2+x+1)*(x-1)^2).-_R.J.Mathar,2019年5月22日
%t{1,2}~Join~Flatten[Reverse/@Partition[Range[3,72],5]](*在Arvey P.Dale_后面,A074066,或*)
%t{1,2}~连接~表[5层[n/5]+10层[#/3]-#&@Mod[n,5],{n,3,69}](*_Michael De Vlieger_,2016年5月25日*)
%o(哈斯克尔)
%o a074067 n=a074067列表!!(n-1)
%o a074067_list=1:2:xs其中xs=7:6:5:4:3:map(+5)xs
%o--_Reinhard Zumkeller,2011年2月21日
%Y参考A074066、A074068。
%K nonn,简单
%O 1,2号机组
%A _Reinhard Zumkeller,2002年8月17日
|