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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A289386型 将一副n张牌恢复到原始顺序所需的“发一,跳过一”洗牌轮数。
1, 2, 3, 2, 5, 6, 5, 4, 6, 6, 15, 12, 12, 30, 15, 4, 17, 18, 10, 20, 21, 14, 24, 90, 63, 26, 27, 18, 66, 12, 210, 12, 33, 90, 35, 30, 110, 120, 120, 26, 41, 42, 105, 30, 45, 30, 60, 48, 120, 50, 42, 510, 53, 1680, 120, 1584, 57, 336, 276, 60 (列表图表参考历史文本内部格式)
抵消
1,2
评论
来源未知。这位作者于2016年初在苹果公司(Apple Inc。)的一个招聘面试问题中首次遇到。
持有一副n张牌时:
1.将牌组顶部的牌发到桌子上(“打一张”)。
2.将下一张牌从牌组顶部移至牌组底部(“跳过一张”)。
3.重复步骤1和2,直到所有卡片都在桌子上。这是一轮。
4.从桌子上拿起甲板,重复步骤1至3,直到甲板处于原始顺序。
发件人罗伯特·伊斯雷尔2017年7月6日:(开始)
a(n)<=A000793号(n) ●●●●。
a(n)除以n!。
猜想:对于无穷多个n,a(n)<n。
猜想:n的集合,其中置换是单个n个循环,因此a(n)=n具有非零密度。(结束)
似乎对于n=2^k和所有m>n,a(n)<=a(m)-安德鲁·沃伦2017年7月15日
a(2^(k+1))/a(2^k)=A020513号根据以下公式计算的值,(k+2)至少为1<=k<=30安德鲁·沃伦. -安德烈·扎博洛茨基2018年4月2日
链接
罗伯特·伊斯雷尔,n=1..4000时的n,a(n)表
安德鲁·沃伦,C程序生成a(n)
例子
卡片被标记为“A”、“B”、“C”等。“ABCD”是一个顶部带有“A”,底部带有“D”的卡片组。
对于n=4:
第1轮:
手:ABCD表:[空]-第一轮的初始状态
手:BCD表:A-交易一
手:CDB表:A-跳过一个
手:DB表:CA-交易一
手:BD表:CA-跳过一个
手:D表:BCA-交易一
手:D表:BCA-跳过一个
手牌:[空的]桌子:DBCA-第一轮结束,第一笔交易
第二轮:
手:DBCA表:[空]-第2轮的初始状态
手:BCA表:D-交易一
手:CAB表:D-跳过一个
手:AB桌:CD-发一张
手:BA桌:CD-跳过一张
手:一张桌子:BCD-一言为定
手:一张桌子:BCD-跳过一张
手[空]桌:ABCD-发一张牌,第二轮结束
4张牌的牌组在2轮后保持原来的顺序(“ABCD”),因此a(4)=2。
MAPLE公司
F: =进程(n)
局部甲板,桌子,i;
甲板:=[1..n];
表:=NULL;
对于i从1到n-1 do
桌子:=甲板[1],桌子;
甲板:=甲板[[$3..nos(甲板),2];
日期:
ilcm(op(映射(nops,转换([deck[1],table],'disjcyc')));
结束进程:
地图(F,[1..100]美元)#罗伯特·伊斯雷尔,2017年7月6日
数学
P[n_,i_]:=模[{d=2i-1},而[d<n,d*=2];2n-d];
跟随[s_,f_]:=模块[{t=f[s],k=1},而[t>s,k++;t=f[t]];如果[s==t,k,0]];
CyclePoly[n_,x_]:=模[{q=0},对于[i=1,i<=n,i++,l=Follow[i,P[n,#]&];如果[l!=0,q+=x^l]];q] ;
a[n_]:=模[{q=CyclePoly[n,x],m=1},对于[i=1,i<=指数[q,x]、i++,如果[系数[q,x,i]!=0,m=LCM[m,i]]];m] ;
数组[a,60](*Jean-François Alcover公司2020年4月9日之后安德鲁·霍罗伊德*)
黄体脂酮素
(C) //请参阅链接
(PARI)deal(v)=my(deck=List(v),new=List(),cutoff=4000+#v,i=1);while(#deck>=i,listput(new,deck[i]);如果(i++>#甲板,断裂);listput(甲板,甲板[i]);如果(#deck>截止,deck=列表(deck[i+1..#deck]);i=0);i++);Vecrev(新)
有序(v)=对于(i=1,#v,如果(v[i]!=i,返回(0));1
a(n)=我的(v=[1..n],t=1);while(!ordered(v=交易(v)),t++);t吨\\查尔斯·格里特豪斯四世,2017年7月6日
(PARI)\\更大n的替代品,如2^n。
P(n,i)=我的(d=2*i-1);而(d<n,d*=2);2*n-d;
跟随(s,f)={my(t=f(s),k=1);while(t>s,k++;t=f(t));if(s==t,k,0)}
CyclePoly(n,x)={my(q=0);对于(i=1,n,my(l=跟随(i,j->P(n,j)));如果(l,q+=x^l);q}
a(n)={my(q=CyclePoly(n,x),m=1);对于(i=1,极度(q),如果(polceoff(q,i),m=lcm(m,i));m}\\Andrew Howroyd,2017年11月11日
交叉参考
囊性纤维变性。A000793号,A051732号(面朝上发牌的变化),A020513号,A051168号.
关键词
非n,
作者
安德鲁·沃伦2017年7月4日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月19日15:34。包含371794个序列。(在oeis4上运行。)