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

 

标志


提示
问候整数序列的在线百科全书!)
A89171 不规则三角形T(n,k)由1×<k<=n:t(n,1)的行读取A020900(n+k+ 1)-(n+k+ 1)和t(n,k)=max(0,t(n- 1,k- 1)-1)。
1, 1, 1、2, 3, 1、3, 2, 4、2, 1, 4、3, 1, 5、3, 2, 6、4, 2, 1、7, 5, 3、1, 9, 6、4, 2, 9、8, 5, 3、1, 9, 8、1, 9, 8、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、y、γ 列表图表参考文献历史文本内部格式
抵消

1,4

链接

Michael De Vliegern,a(n)n=1…13692的表(行1<n<=250)。

公式

行长度=A107367(n+1)。

例子

三角形开始:

n(n)

1:0

2:1

3:1

4:2

5:3、1

6:3、2

7:4、2、1

8:4、3、1

9:5、3、2

10:6、4、2、1

11:7、5、3、1

12:9、6、4、2

13:9、8、5、3、1

14:9、8、7、4、2

15:9、8、7、6、3、1

16:11 8、7、6、5、2

17:13 10、7、6、5、4、1

18:12 12、9、6、5、4、3

19:13 11、11、8、5、4、3、2

20:14 12、10、10、7、4、3、2 1

Mathematica

t[n],k]:= t[n,k]=[k==1,PrimePi [ 2素数]α] -[n],[n- k+1 ],马克斯[ 0,t[n- 1,k- 1 ] -1 ];MAP[DeleCase[a,0,],表[t[n,k],{n,20 },{k,n}] ] /平坦(*或*)

t[n],k]:=[k=1,PrimePi [ 2素数]α]和[n- k+1 ],马克斯[ 0,t[n- 1,k- 1 ] -1 ];表[t[n,k],{n,60 },{k,计数[范围] [α] + 1, 2α-1 ]和@素数[n+1 ],Sy/[ PrimeMeGeas==2 & & qq@ s] }/ /平坦(*)米迦勒·德利格勒7月21日2017*)

交叉裁判

囊性纤维变性。A000 1221A1002110A000 630A020900A053668A107367A28 88 13.

语境中的顺序:A10797 194308 A257070*A21633 A03702 A23094

相邻序列:A28 9168 A28 9169 A28 9170*A28 9172 A28 9173 A89174

关键词

诺恩塔布容易

作者

米迦勒·德利格勒7月21日2017

地位

经核准的

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

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

最后修改了11月15日01:00 EST 2019。包含329142个序列。(在OEIS4上运行)