%I#17 2014年2月18日22:42:00

%S 1,2,4,6,7,9,11,12,14,16,18,19,21,23,24,26,28,30,31,33,35,36,38,40,42，

%电话：43,45,47,48,50,52,54,55,57,59,61,62,64,66,67,69,71,73,74,76,78,79,81，

%U 83,85,86,88,90,91,93,95,97,98100102103105109110112114115单位

%N a（N）=最大k，即k个连续倒数之和1/N+…+1/（n+k-1）不超过1。

%David Cantrell的C启发式公式（SeqFan邮件列表，2008年1月）。想象一把带有调和数H（n）的标尺作为标记。然后A136617（n）给出标记数m-n+1=A136616（n）-n+1：

%C。。。。。。。。。。。。。H……..H……..H………..***。。。。。H。。。。。。。

%C。。。。。。。。。。。。。。n-1……n……n+1…………m。。。。。。

%C----o---------+------+-----.***-----+-o个----

%C…………..______________..______________/。。。。。。

%C。。。。。。。。。。。。。。。。。。。。。

%C。。。。。。。。。。。。。。。。。。。。。。。。。。。。长度1。。。。。。。。。。。。。。。。。。

%C A083088的前23个术语与A136617的相同，但A083088n（n）/n和A136617n/n对n->oo的限制不同。

%H Clark Kimberling，n的表，n=1..10000的a（n）</a>

%H E.R.Bobo，<a href=“http://www.jstor.org/stable/2687034“>与调和级数有关的序列</A>，《大学数学期刊》第26期（1995），308-310页。

%F a（n）=A136616（n-1）-n+1，采用David Cantrell的启发式算法：a（n）=楼层（（e-1）*（n-1/2）+（e-1/e）/（24*（n-1/2））。

%e a（3）=4，因为1/3+1/4+1/5+1/6<1有4个和；加1/7超过1。

%p A136617:=过程（n）局部t，m；t： =0；对于n中的m，dot:=t+1/m；如果t>1，则返回m-n；fi；od；终末程序；[序列（A136617（n），n=1..100）]；#_罗伯特·伊斯雷尔，2008年1月

%t表[模块[{start=Floor[z（E-1）]-1}，

%t NestWhile[#+1&，start，HarmonicNumber[#+z]-HarmonicNumber[z]+1/z<=1&]]，{z，1，100}]（*_Peter J.C.Moses_，2012年8月20日*）

%Y参见A136616、A002387、A004080、A079353、A081881、A096618、A103762、A118050、A118051。

%K容易，不是

%O 1,2号机组

%罗森塔尔，2008年1月13日