%I#20 2018年8月9日03:26:00

%S 2,2,3,3,5,3,4,4,7,5,11,4,13,13,4,5,5,9,7,19,6,7,11,12,5,21,21,13,19,5,29,5，

%电话：6、6、11、9、13、8、37、19、13、7、21、7、15、12、13、12、24、6、22、21、9、14、53、19、21、6，

%U 19,29,59,6,61,6,7,7,13,11,67,10,23,13,36,9,10,37,21,20,31,40,8,55,21,83,8,9,15,29,13

%N最小k，使N除以2^k-2^j，得到满足1<=j<k的j。

%C有关相关序列的讨论和指南，请参见A204892。

%H Antti Karttunen，n的表，n=1..6556的a（n）</a>

%F a（n）=最大值（1，A007814（n））+A007733（n）_安德鲁·霍罗伊，2018年8月8日

%e1除以2^2-2^1，则a（1）=2；

%e2除以2^2-2^1，则a（2）=2；

%e3除以2^3-2^1，所以a（3）=3；

%e4除以2^3-2^2，因此a（4）=3；

%e5除以2^5-2^1，因此a（5）=5。

%t s[n]：=s[n]=2^n；z1=1000；z2=50；

%t表[s[n]，{n，1，30}]（*A000079*）

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

%t表[u[m]，{m，1，z1}]（*A204985*）

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

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

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

%t表[d[n]，{n，1，z2}]（*A204986*）

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

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

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

%t表[k[n]，{n，1，z2}]（*A204987*）

%t表[j[n]，{n，1，z2}]（*A204988*）

%t表[s[k[n]]，{n，1，z2}]（*A204989*）

%t表[s[j[n]]，{n，1，z2}]（*A140670？*）

%t表[s[k[n]]-s[j[n]]，{n，1，z2}]（*A204991*）

%t表[（s[k[n]]-s[j[n]]）/n，{n，1，z2}]（*A204992*）

%t%%/2（*A204990=（1/2）*A2049961*）

%o（PARI）A204987etA204988（n）={my（k=2）；while（1，对于（j=1，k-1，如果（！（（2^k）-（2^j））%n），返回（[k，j]））；k++）；}；\\（同时计算A204988）-Antti Karttunen，2017年11月19日

%o（PARI）a（n）={my（k=估值（n，2））；最大值（k，1）+znorder（Mod（2，n>>k））}\\ Andrew Howroyd_，2018年8月8日

%Y参见A000079、A007733、A007814、A054703、A204892、A204988。

%K nonn公司

%O 1,1号机组

%A _百灵鸟金伯利，2012年1月21日

%E更多条款，2017年11月19日，安蒂·卡图宁