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

 

标志
提示
(来自的问候整数序列在线百科全书!)
搜索: a065163-编号:a065165
显示找到的7个结果中的1-7个。 第页1
    排序:关联|参考文献||被改进的|创建     格式:长的|短的|数据
A060112号 非连续阶乘数的和。 +10
13
0, 1, 2, 6, 7, 24, 25, 26, 120, 121, 122, 126, 127, 720, 721, 722, 726, 727, 744, 745, 746, 5040, 5041, 5042, 5046, 5047, 5064, 5065, 5066, 5160, 5161, 5162, 5166, 5167, 40320, 40321, 40322, 40326, 40327, 40344, 40345, 40346, 40440, 40441, 40442 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,3
评论
n的Zeckendorf(Fibonacci)展开(A003714号)重新解释为阶乘展开。
也位于A055089号A060117号A060118号仅由不相交的相邻转置组成的置换。(通过比较各个序列中的算法PermRevLexUnrankAMSD、PermUnrank3R和PermUnrank3L,可以看出这些位置是相同的)。因此,固定条款在A065181号-A065184号。请参阅上的评论A065163号.
写为不相交循环的排列是:()、(12)、(23)、(34)、(1 2)(34),(45)、(2)(45),(2 3)(45。
链接
查尔斯·格里塔斯四世,n=1..10000时的n,a(n)表
亚瑟·T·怀特,振铃改变,数学。程序。外倾角。Phil.Soc.,1983年9月,第94卷,第2部分,第203-215页。
配方奶粉
a(n)=PermRevLexRank(CampanoPerm(n))
一个(A001611号(n) )=(n-1)!对于n>2-大卫·A·科内斯2017年6月25日
例子
前几个自然数的泽肯多夫展开式,以及当被解释为阶乘展开时的相应值:0=0=0,1=1=1,2=10=2,3=1000=6,4=101=7,5=1000=24,6=1001=25,7=1010=26,8=10000=120,等等。,
MAPLE公司
CampanoPerm:=proc(n)局部z,p,i;p:=[];z:=fibbinary(n);i:=1;当(z>0)时,如果(1=(zmod2)),则p:=permul(p,[i,i+1]]);fi;i:=i+1;z:=地板(z/2);od;RETURN(转换(p,'permlist',i));结束;
数学
带有[{b=MixedRadius[Range[12,2,-1]]},FromDigits[#,b]&/@Select[Tuples[{0,1},8],SequenceCount[#,{1,1}]==0&]](*迈克尔·德弗利格2017年6月26日*)
黄体脂酮素
(PARI)填充(lim,k,val)=如果(k>#f,return);我的(t=val+f[k]);如果(t<=lim,则列表输入(v,t);填土(lim,k+2,t));填充(lim,k+1,val)
list(lim)=my(k,t=1);局部(f=列表(),v=列表([0]));而(t*=k++)<=lim,listput(f,t));f=Vecrev(f);填充(lim,1,0);集合(v)\\查尔斯·格里特豪斯四世2017年6月25日
(PARI)第一(n)=我的(res=[0,1],k=1,t=1,p=1);而(#res<n,k++;t++;p*=t;res=concat(res,vector(fibonacci(k),i,res[i]+p));向量(n,i,res[i])\\大卫·A·科内斯2017年6月26日
交叉参考
对于PermRevLexRank,请参见A056019号,有关fibbinary,请参见A048679号A003714号.
关键词
非n容易的美好的
作者
安蒂·卡图恩2001年3月1日
状态
经核准的
A065161号 Foata变换将对称群Sn划分成的轨道数,即a(n)是排列中的圈数A065181号-A065184号在[0,n!-1]范围内找到。 +10
8
1, 2, 4, 10, 24, 60, 138, 336, 820, 2114, 5340, 14136 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
使用中给出的Maple程序FoataPermutationCycleCounts_Lengths_and_LCM进行计数A065163号.
链接
交叉参考
囊性纤维变性。A065162号A065163号.
关键词
非n更多
作者
安蒂·卡图恩2001年10月19日
扩展
a(9)-a(12)来自肖恩·欧文2023年8月19日
状态
经核准的
A065181号 A055089号受Foata变换的逆变换影响。的反转A065182号. +10
8
0, 1, 2, 5, 3, 4, 6, 7, 14, 23, 17, 20, 8, 11, 12, 22, 13, 21, 9, 10, 16, 18, 15, 19, 24, 25, 26, 29, 27, 28, 54, 55, 86, 119, 95, 110, 62, 71, 78, 116, 79, 113, 65, 68, 92, 102, 89, 103, 30, 31, 38, 47, 41, 44, 48, 49, 84, 118, 94, 108, 50, 53, 80, 117, 83, 109, 51, 52 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,3
评论
在这里,我们使用Foata变换的左右极大值变体的倒数,其工作方式是首先旋转每个循环的最大元素,然后根据每个循环的第一个(和最大)元素将循环按升序排序。
参考文献
I.M.Gessel和R.P.Stanley,代数枚举,《组合数学手册》第2卷第21章,R.L.Graham等人编辑,麻省理工学院出版社,1995年,第1045页。
链接
Joe Buhler和R.L.Graham,颠簸跌落阿默尔。数学。月刊,101,(第6期)1994,507-519。
MAPLE公司
[seq(PermRevLexRank(FoataInv(PermRevLexUnrank(j))),j=0..119)];
与(组);FoataInv:=p->map(op,排序([op(map(RotCycleLargestFirst,convert(p,`disjcyc`))),op(FixedCycles(p))],sortbyfirst));
sortbyfirst:=(a,b)->`if`((a[1]<b[1]),true,false);
查找最大值:=proc(a)局部i,m;m:=0;对于i从1到nops(a),如果(0=m),则m:=i;否则,如果(a[i]>a[m]),则m:=i;fi;fi;od;回程(m);结束;
RotCycleLargestFirst:=进程(c)局部x;x:=查找最大值(c);如果(x<=1),则返回(c);否则返回([op(c[x..nops(c)]),op(c[1..(x-1)]));fi;结束;
固定周期:=proc(p)局部a,i;a:=[];对于i从1到nops(p),如果(p[i]=i),则a:=[op(a),[i]];fi;od;返回(a);结束;
交叉参考
A065161号-A065163号给出循环计数和最大长度。另请参阅A065183号A065184号A055089号A056019号获取必要的Maple程序。
关键词
非n
作者
安蒂·卡图恩2001年10月19日
状态
经核准的
A065184号 A060117号受到Foata变换的左右最大值变体的影响。的反转A065183号. +10
7
0、1、2、5、3、4、6、7、14、23、15、22、8、21、12、16、19、11、17、10、9、13、20、18、24、25、26、29、27、28、54、55、86、119、87、118、56、117、84、88、115、59、89、58、57、85、116、114、30、31、80、107、81、106、48、49、60、67、61、66、74、92、38、113、47、101、112、100 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,3
链接
MAPLE公司
[seq(PermRank3R(Foata(PermUnrank3R,j)),j=0..119)];
交叉参考
A065161号-A065163号给出循环计数和最大长度。另请参阅A065181号A065182号适用于Maple程序Foata和A060117号对于PermUnrank3R和A060125号对于PermRank3R。
关键词
非n
作者
安蒂·卡图恩2001年10月19日
状态
经核准的
A065183号 A060117号受Foata变换(变体)的逆变换影响。的反转A065184号. +10
4
0, 1, 2, 4, 5, 3, 6, 7, 12, 20, 19, 17, 14, 21, 8, 10, 15, 18, 23, 16, 22, 13, 11, 9, 24, 25, 26, 28, 29, 27, 48, 49, 78, 108, 103, 91, 74, 111, 62, 69, 75, 104, 101, 94, 100, 83, 71, 64, 54, 55, 80, 109, 107, 90, 30, 31, 36, 44, 43, 41, 56, 58, 72, 110, 106, 77, 59, 57, 81 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,3
链接
MAPLE公司
[seq(PermRank3R(FoataInv(PermUnrank3R,j)),j=0..119)];
交叉参考
A065161号-A065163号给出循环计数和最大长度。另请参阅A065182号A065181号适用于Maple程序FoataInv和A060117号对于PermUnrank3R和A060125号对于PermRank3R。
关键词
非n
作者
安蒂·卡图恩2001年10月19日
状态
经核准的
A065182号 A055089号受到Foata变换的影响。的反转A065181号. +10
3
0, 1, 2, 4, 5, 3, 6, 7, 12, 18, 19, 13, 14, 16, 8, 22, 20, 10, 21, 23, 11, 17, 15, 9, 24, 25, 26, 28, 29, 27, 48, 49, 72, 96, 97, 73, 74, 76, 50, 100, 98, 52, 99, 101, 53, 77, 75, 51, 54, 55, 60, 66, 67, 61, 30, 31, 84, 108, 109, 85, 78, 91, 36, 115, 102, 42, 103, 114, 43 (列表;图表;参考;;历史;文本;内部格式)
抵消
0,3
评论
在这里,我们使用Foata变换的一个变体,它通过在每个左右最大值处“插入括号”来形成一个新的排列,来划分循环。
参考文献
I.M.Gessel和R.P.Stanley,代数枚举,《组合数学手册》第2卷第21章,R.L.Graham等人编辑,麻省理工学院出版社,1995年,第1045页。
链接
Joe Buhler和R.L.Graham,颠簸跌落阿默尔。数学。月刊,101,(第6期)1994,507-519。
MAPLE公司
[seq(PermRevLexRank(Foata(PermRevLexUnrank(j))),j=0..119)];
与(组);Foata:=proc(p)局部c,c1,i,m;c:=[];c1:=[];m:=0;对于i从1到nops(p),如果(p[i]>m),那么如果(nops(c1)>1),那么c:=[op(c),c1];fi;m:=p[i];c1:=[];fi;c1:=[op(c1),p[i]];od;如果(nops(c1)>1),则c:=[op(c),c1];fi;RETURN(转换(c,'permlist',nops(p)));结束;
交叉参考
A065161号-A065163号给出循环计数和最大长度。另请参阅A065183号A065184号A055089号A056019号获取必要的Maple程序。
关键词
非n
作者
安蒂·卡图恩2001年10月19日
状态
经核准的
A065162号 所有轨道尺寸的最小公共倍数(相应排列中的循环长度A065181号-A065184号)Foata变换将对称群Sn划分为。 +10
2
1, 1, 3, 84, 392700, 134303400, 144049802170012200, 20408430429061596071366416200, 44398211066986010729368646573034503961122478555908400, 265062009098171901647881980851886506540968043007100873153849200 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,3
评论
使用中给出的Maple程序FoataPermutationCycleCounts_Lengths_and_LCM进行计数A065163号.
链接
交叉参考
关键词
非n
作者
安蒂·卡图恩2001年10月19日
扩展
更多术语来自肖恩·欧文2023年8月19日
状态
经核准的
第页1

搜索在0.008秒内完成

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

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

上次修改时间:美国东部夏令时2024年3月29日10:22。包含371268个序列。(在oeis4上运行。)