登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A238371型 a(1)=1;对于n>1,a(n)=将一堆n张牌重新排序为其原始顺序的“顶部”Mongean洗牌次数。 4
1, 1, 3, 3, 5, 5, 4, 4, 9, 9, 11, 11, 9, 9, 5, 5, 12, 12, 12, 12, 7, 7, 23, 23, 8, 8, 20, 20, 29, 29, 6, 6, 33, 33, 35, 35, 20, 20, 39, 39, 41, 41, 28, 28, 12, 12, 36, 36, 15, 15, 51, 51, 53, 53, 36, 36, 44, 44, 24, 24, 20, 20, 7, 7, 65, 65, 36, 36, 69, 69, 60, 60, 42, 42, 15, 15, 20, 20, 52, 52, 81, 81, 83, 83, 9, 9, 60, 60 (列表图表参考文献历史文本内部格式)
抵消
1,3
评论
在蒙琴洗牌中,栈顶的牌成为新栈的顶部,旧栈的第二张放在新栈的上面,第三张放在新栈的底部,交替放在新堆栈的顶部和底部。
这里我们定义了一个洗牌,新堆栈中的上下位置以相同的方式交替,但旧堆栈中的第二张卡移动到堆栈的*底部*。
一次洗牌是1、2、3、4、5、6…->…的排列。。。,7, 5, 3, 1, 2, 4, 6, ...
其中n=a(n)的不动点似乎位于A163778号.
(“顶部”分类是在这里发明的一种命名法,如果这种变体出现在文献的其他地方,就会被取代。)
链接
维基百科,蒙琴洗牌
配方奶粉
一个(A163778号(n) )=A163778号(n) ●●●●-安德鲁·霍罗伊德2017年11月11日
MAPLE公司
topMong:=进程(L)
ret:=[op(1,L)];
对于k从2到nops(L)do
如果类型为(k,“偶数”),则
ret:=[op(ret),op(k,L)];
其他的
ret:=[op(k,L),op(ret)];
结束条件:;
结束do:
ret;
结束进程:
A238371型:=进程(n)
本地ca、org、tu;
ca:=[seq(k,k=1..n)];
组织:=[seq(k,k=1..n)];
对于1 do的tu
ca:=topMong(ca);
如果ca=org,则
返回tu;
结束条件:
结束do:
结束过程:
序列(A238371型(n) ,n=2..88);
数学
topMong[L_]:=模[{ret={L[[1]]},对于[k=2,k<=长度[L],k++,如果[EvenQ[k],ret=Append[ret,L[[k]]],ret=前置[ret、L[[k]]];ret];
A238371型[n_]:=模块[{ca,org,tu},ca=org=范围[n];对于[tu=1,True,tu++,ca=topMong[ca];如果[ca==org,返回[tu]]];
阵列[A238371型, 88] (*Jean-François Alcover公司2018年7月3日之后R.J.马塔尔*)
黄体脂酮素
(PARI)适用(A238371型(n) =znorder(Mod(比特(n,2)*2-2,n\2*4+3)),[0..99])\\M.F.哈斯勒2019年3月31日
交叉参考
囊性纤维变性。A019567号(蒙琴洗牌),A294673型(二等分)。
关键字
非n
作者
R.J.马塔尔2014年2月25日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年5月10日17:54。包含372388个序列。(在oeis4上运行。)