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

 

标志

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

提示
问候整数序列的在线百科全书!)
A191656 用反对角线对(2,4,5,7,8,10,……)进行分散。
1, 2, 3,4, 5, 6,7, 8, 10,9, 11, 13,16, 14, 12,17, 20, 25,22, 19, 15,26, 31, 38,34, 29, 23,18, 40, 47,58, 52, 44,35, 28, 21,35, 28, 21,γ,y,γ,y,γ,γ,γ,γ 列表图表参考文献历史文本内部格式
抵消

1,2

评论

第1行:A000 699.

有关分散体的背景讨论,请参阅A191426.

每个序列(3n,n>0),(3n+1,n> 0),(3n+2,n>=0),生成一个色散。每一个补体(从它的第一项开始>1)也产生一个色散。这里列出了六个序列和分散体:

A191449=色散A000 85 85(0国防部3)

A191451=色散A016777(1国防部3)

A191450=色散A016789A(2国防部3)

A191656=色散A000 1651(1或2 mod 3)

A083044=色散A000 7949(0或2 mod 3)

A191655=色散A032666(0或1 mod 3)

除了最多2个初始项(列1总是以1开始):

A191449有第一个科尔A000 1651其他一切A000 85 85

A191451有第一个科尔A000 7949其他一切A016777

A191450有第一个科尔A032666其他一切A016789A

A191656有第一个科尔A000 85 85其他一切A000 1651

A083044有第一个科尔A016777其他一切A083044

A191655有第一个科尔A016789A其他一切A032666

对于“(a或b mod m)”类型(如下面的Mathematica程序)有一个公式:

如果f(n)=(n mod 2),则(a,b,a,b,a,b,…)由

a*f(n+1)+b*f(n),从而给出“(a或b mod m)”。

a*f(n+1)+b*f(n)+m *层((n-1)/ 2),对于n>=1。

链接

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

例子

西北角:

1…2…4…7…11

3…5…8…13…20

6…10…16…25…38

9…14…22…34…52

12…19…29…44…67

Mathematica

(*程序生成递增序列f[n] *的离散数组t)

r=40;R1=12;C=40;C1=12;

a=2;b=4;m [ n]:=I[ mod〔n,2〕=0, 1, 0〕;

F[n]:= a*m [n+1] +b*m [n]+3 *楼层[(n-1)/2 ]

表[f[n],{n,1, 30 }]A000 1651(2±5K,4±5K,k>=0)*

Mex[ListSy]:= n[S] 1 + 1,1,联合[List] [[O] 1 ] < < 1,1,长度】[CON[列表] ]

行= {NestStest[f,1,C] };

[行] =附加[行,NestList[f,Mex[Valt[行] ],R],{R};

t[i],jy]:=行[i,j];

表[表[t[i,j],{i,1, 10 },{j,1, 10 }] ](*)A191656数组*)

平坦[表[t[k,n- k+1 ],{n,1,c1},{k,1,n}] ](*)A191656序列*)

交叉裁判

囊性纤维变性。A000 1651A000 85 85A191426.

语境中的顺序:A5053 A073244 A073255*A266190 A2655 A2655

相邻序列:A191653 A191654 A191655*A191657 A191658 A191659

关键词

诺恩塔布

作者

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

地位

经核准的

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

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

最后修改12月12日01:57 EST 2019。包含329948个序列。(在OEIS4上运行)