A205018-OEIS公司

A205018号

对于满足1<=j<k的某些j，最小k使得n除以s（k）-s（j），其中s（j）=j*（j+1）。

2, 2, 3, 2, 3, 3, 4, 4, 4, 3, 6, 5, 7, 4, 6, 8, 9, 4, 10, 6, 8, 6, 12, 5, 7, 7, 7, 5, 15, 6, 16, 16, 8, 9, 8, 6, 19, 10, 9, 6, 21, 8, 22, 7, 10, 12, 24, 9, 10, 7, 11, 8, 27, 7, 13, 11, 12, 15, 30, 8

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

请参见A204892型用于相关序列的讨论和指南。

链接

n=1..60时的n，a（n）表。

数学

s[n]：=s[n]=n*（n+1）；z1=500；z2=60；

表[s[n]，{n，1，30}](*A002378号*)

u[m_]：=u[m]=扁平[表[s[k]-s[j]，{k，2，z1}，{j，1，k-1}][[m]]

表[u[m]，{m，1，z1}](*A205016型*)

v[n_，h]：=v[n，h]=如果[IntegerQ[u[h]/n]，h，0]

w[n_]：=w[n]=表格[v[n，h]，{h，1，z1}]

d[n_]：=d[n]=第一个[删除[w[n]，位置[w[n]，0]]

表[d[n]，{n，1，z2}](*A205017号*)

k[n_]：=k[n]=楼层[（3+平方[8 d[n]-1]）/2]

m[n_]：=m[n]=楼层[（-1+平方[8 n-7]）/2]

j[n]：=j[n]=d[n]-m[d[n]]（m[d[n]+1）/2

表[k[n]，{n，1，z2}](*A205018号*)

表[j[n]，{n，1，z2}](*2008年5月28日*)

表[s[k[n]]，{n，1，z2}](*A205029号*)

表[s[j[n]]，{n，1，z2}](*A205030型*)

表[s[k[n]]-s[j[n]]，{n，1，z2}](*2005年5月31日*)

表[（s[k[n]]-s[j[n]]）/n，{n，1，z2}](*A205032型*)

交叉参考

囊性纤维变性。A002378号,A204892型,A205016型.

上下文中的序列：A303297型 A107452号 A349198型*A286716型 A029213号 A029209号

相邻序列：A205015型 A205016型 A205017号*A205019号 A205020型 A205021号

关键词

非n

作者

克拉克·金伯利2012年1月22日

状态

经核准的