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

 

标志

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

提示
问候整数序列的在线百科全书!)
A18782A 序列上限(2n/3)的秩变换;补码A187863.
1, 3, 4、5, 7, 8、10, 12, 13、14, 16, 17、19, 20, 21、23, 24, 25、27, 29, 30、32, 33, 34、36, 38, 39、40, 42, 43、45, 47, 48、49, 51, 52、49, 51, 52、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、γ 列表图表参考文献历史文本内部格式
抵消

1,2

评论

A187224.A18782A是秩变换的A000 423去掉初始零点)。

这是复制品吗?A026367

链接

n,a(n)n=1…91的表。

Mathematica

SEQA=表[天花板[2N/1],{n,1, 180 } ](*)A000 423*)

SEQB=表[n,{n,1, 80 }];(*)A000 00 27*)

CouthTrink [{SeQuig,Seqb}}]:= {ListTy@位置[* 1,{,1 } ],

平移@位置[* 1,{,2 } } & [排序@平坦[ {{ 1, 1 }&/@ SEQA,

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

LimStase= FixDePoT [CouthRunk[{SEQA,α1 [[ 1 ] ] }],CouthTrink [{SEQA,SEQB}] [[1 ] ](*)A18782A*)

补语[范围[长度[SEQA] ],LimStRe](*)A187863*)

(*)皮特·J·摩西3月10日2011*)

交叉裁判

囊性纤维变性。A187224A187863.

语境中的顺序:A267650 A70102 A026367*A255950 A18768 A13792

相邻序列:A18779 A18780 A18781A*A187863 A18784 A18785

关键词

诺恩

作者

克拉克·金伯利3月10日2011

地位

经核准的

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

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

最后修改12月5日20:12 EST 2019。包含329774个序列。(在OEIS4上运行)