%I#17 2022年1月25日15:33:53

%S 1,1,6,11,18,12,5,22,91143,1,93370182,20,203153329731571223，

%电话：1807325404474141211460021761484659312310852167820862，

%U 3348型

%N A253415中相同术语的运行长度。

%tc[_]=0；c[1]=j=1；u=2；s=3；最多@Tally[#][[All，-1]]&@Reap[Do[d=除数[s]；k=1；当[c[d[[k]]>0时，k++]；集合[k，d[[k]]]；集合[c[k]，i]；如果[k==u，而[c[u]>0，u++]]；母猪[u]；j=k；s+=k，{i，2，2^12}]][[-1，-1]]（*米歇尔·德弗里格，2022年1月23日*）

%o（哈斯克尔）

%o导入数据。列表（组）

%o a253425 n=a253425_列表！！（n-1）

%o a253425_list=地图长度$组a253415_list

%o（Python）

%o从itertools导入岛

%o来自sympy导入除数

%o def A253425_gen（）：#术语生成器

%o bset，l，m，s={1}，0，2，3

%o当为True时：

%o表示除数中的d：

%o如果d不在bset中：

%o b设置添加（d）

%o如果m在bset中：

%o产量l

%o l=1

%o当m在bset中时：

%o m+=1

%o其他：

%o l+=1

%o s+=d

%o中断

%o A253425_list=列表（islice（A253425_gen（），20））#_Chai Wah Wu_，2022年1月25日

%Y参见A253415、A095258。

%K nonn，更多

%O 1,3

%A _Reinhard Zumkeller，2014年12月31日

%E a（14）-a（35），来自Michael De Vlieger，2022年1月23日