登录
这个网站是通过捐款来支持的。OEIS基金会.

 

标志

请做一个捐款保持OEIS运行。我们现在已经第五十五岁了。在过去的一年里,我们增加了12000个新的序列,达到了8000个。引文(常说“感谢OEIS”)。我们需要筹集资金雇人管理提交,这将减少我们编辑的负担,加快编辑。
其他方式捐赠

提示
问候整数序列的在线百科全书!)
A18784 序列的秩变换A000 45 26=(0,0,1,1,2,2,3,3,4,4,…);补体A18775.

%i

%S1、2、3、4、6、7、9、10、12、13、15、16、17、18、20、21、23、24、25、26、28、29、31、32、33

%34、36、37、39、40、41、42、44、45、47、48、50、51、53、54、55、56、58、59、61、62、63、64

%u 66、67、6、7、7、7、7、7、78、80、8、3、84、85、88、88、88、91、92、94、95、97、98、99、100、103、106、106、107、1011、1111、131、141、171、191、191、122、122、124、127、127、127、128、129、121、130

序列AA05626=(0,01,1,2,2,3,3,4,4,…)的%N秩变换;A18775的补体。

%C见A187224和A00 42626。

%t SEQA=表[Lo[(n-1)/2 ],{n,1, 180 }](*A00 42626)

%t SEQB=表[n,{n,1, 80 }];(*a00)

%T CouthTrink [{SeqAc],Seqb}}:= {ListTy@位置[* 1,{,1 } ],

%t扁平化@位置[* 1,{,2 } } & [排序@平坦[{{ 1, 1 }&/@ SEQA,

%T { 1, 2 } //@ SEQB},1〕;

%t LimStase= FixEdPoo[CuxTrink [{SEQA,γ1 [[ 1 ] ] }],CouthTrink [{SEQA,SEQB}] [[ 1 ] ](*A18784*)

%T补码[范围[长度[SEQA] ],LimSCOR](*A18775*)

%T(*由彼得J.C.莫塞斯,3月10日2011 *)

%Y参见A18722,A18785,A00 426。

%K-NON

%O 1,2

3月10日,A·K·克拉克·金伯灵格2011

查找γ欢迎γ维基γ注册γ音乐γ情节2γ演示γ指数γ浏览γ更多γ网络摄像机
贡献新的SEQ。或评论γ格式γ样式表γ变换γ超级导引头γ最近
OEIS社区通过保持OEIS基金会

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

最后修改12月14日0212 EST 2019。包含329978个序列。(在OEIS4上运行)