%I#21 2023年9月9日20:49:23

%S 0,1,2,2,4,4,3,3,6,6,10,10,12,12,4,4,18,6,8,18,11,21,20,18,18，

%电话：28,28,5,5,10,10,12,12,36,36,12,12,12,20,14,14,12,12:23,23,21,21,8,8，

%U 52,52,20,20,18,18,58,58,60,60,6,6,12,12,66,66,22,35,35,9,20,20

%N将大小为N的牌组恢复到其原始顺序所需的洗牌次数（完美的法罗洗牌和剪切）。

%D Martin Gardner，“纸牌洗牌”，《数学嘉年华》第10章，第123-138页。纽约：复古图书，1977年。

%D S.Brent Morris，《魔术、洗牌和动态计算机内存》，数学。《美国协会》，1998年，第107页。

%H Tim Folger，<a href=“网址：http://suff.col/shuffling.html“>《Shuffling Into Hyperspace》，《Discover》，1991年（第12卷，第1期），第66-67页。

%e a（52）=8：52号牌组在8次完美的法罗洗牌后恢复到原来的顺序。

%p A002326:=程序（n）

%p如果n=0，则

%第1页；

%p其他

%p数理论[阶]（2,2*n+1）；

%p end if；

%p端程序：

%p A024222:=进程（n）

%p如果n<=1，则

%pn-1；

%p其他

%p A002326（地板（（n-1）/2））；

%p end if；

%结束程序：#R.J.Mathar_，2018年11月14日

%t A002326[n_]：=如果[n==0，1，乘数阶[2，2n+1]]；

%t A024222[n_]：=如果[n<=1，n-1，A002326[楼层[（n-1）/2]]]；

%t表[A024222[n]，{n，1，76}]（*_Jean-François Alcover_，2023年5月5日，在R.J.Mathar_*之后）

%Y A002326实际上是这个问题的基本序列。参见A024542。

%K容易，不是

%氧1,3

%A _诺什哈加_