登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)

修订历史记录邮编:A153657

(带下划线的文本是附加粗删除线删除.)

显示所有更改。
邮编:A153657 行和29^n三角递归序列:素数[j]=29=标度;A(n,k)=A(n-1,k-1)+(n-1,k)+(2*j+7)*Prime[j]*A(n-2,k-1)。
(历史;已发布版本)
#二通过罗斯考克斯美国东部时间2012年3月30日星期五17:34:29
作者

_罗杰·L·巴古拉(拉巴古拉夫坦()雅虎.通用域名格式),_,2008年12月30日

讨论
3月30日星期五 17: 34个
OEIS服务器:https://oeis.org/edit/global/158
#1通过N、 斯隆2009年1月9日星期五美国东部时间03:00:00
姓名

行和29^n三角递归序列:素数[j]=29=标度;A(n,k)=A(n-1,k-1)+(n-1,k)+(2*j+7)*Prime[j]*A(n-2,k-1)。

数据

2,29,29,2,1678,2,2,24387,24387,2,2,25955,1362648,25955,2,2,27523,20483624,20483624,27523,2,2,29091,40833912,1107920632,40833912,29091,2,2,30659,62413512,17187432136,17187432136,62413512,30659,2,2,32227

抵消

1,1

评论

第一个版本是错误的:j函数随着j的增大而增加。

行总和为:

{2,58,1682,48778,1414562,41022298,1189646642,34499752618,

10004928259229014291951738,…}。

分形的最低水平图为:

a=表格[表格[如果[m<=n,如果[Mod[a[n,m],23]==0,0,1],0],{m,1,10}],{n,1,10}];

ListDensityPlot[a,网格->假,轴->假]

公式

A(n,k)=A(n-1,k-1)+A(n-1,k)+(2*j+7)*素数[j]*A(n-2,k-1)。

例子

{2} 你说,

{29,29},

{21678,2},

{2,24387,24387,2},

{2,25955136264825955,2},

{2,27523,20483624,20483624,27523,2},

{2,29091,40833912,1107920632,40833912,29091,2},

{2,30659,62413512,17187432136,17187432136,62413512,30659,2},

{32227,85222424,49222798744,901876719128,49222798744,85222424,32227,2},

{2,33795,109260648,98177801064,14408858880360,14408858880360,98177801064,109260648,33795,2}

数学

清除[t,n,m,A,A];j=10;

A[2,1]:=A[2,2]=素数[j];

A[3,2]=2*素数[j]^2-4;

A[4,2]=A[4,3]=素数[j]^3-2;

A[n_1]:=2;A[n_1]:=2;

A[nˉ,kˉ]:=A[n-1,k-1]+A[n-1,k]+(2*j+7)*素数[j]*A[n-2,k-1];

表[表[A[n,m],{m,1,n}],{n,1,10}];

展平[%]表格[Sum[A[n,m],{m,1,n}],{n,1,10}];

表[Sum[A[n,m],{m,1,n}]/(2*Prime[j]^(n-1)),{n,1,10}]

关键字

,未调整,,新的

作者

Roger L.Bagula(rlbagulatftn(AT)yahoo.com),2008年12月30日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年9月27日14:03。包含337380个序列。(运行在oeis4上。)