%I#21 2016年6月29日00:20:52

%S 0,1,2,5,7,10,12,17,23,25,28,30,35,40,46,48,52,57,63,70,74,79,85,92，

%电话：97102109119121124126131136142148153159166170175，

%电话1811881931982042132212282382240244249255262266271277

%N因子膨胀豆茎的无限主干。在a（n）的阶乘展开中，a（n-1）=a（n。

%当我们从根（零）开始攀爬“阶乘豆茎”的无限树干时，C a（n）告诉我们在n步中以什么数字结束。

%C有许多有限序列，如0，1，2，4；0,1,2,5,6; 等遵循相同的条件（参见A219659），并且随着长度的增加，与这个无限序列的相似性（必然）也会增加。

%C阶乘数系统表示见A007623。

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

%F a（0）=0，a（1）=1，对于n>1，如果A226061（A230411（n））=n，则a（n）=A23041l（n）-1，否则a（n）=a（n+1）-A034968（a（n/1））。

%F a（n）=A230416（A230432（n））。

%t nn=10^3；m=1；而[m！<楼层[6 nn/5]，m++]；米；t=TakeWhile[Reverse@NestWhileList[#-Total@Integer Digits[#，MixedRadius[Reverse@Range[2，m]]&，Floor[6 nn/5]，#>0&]，#<=nn&]（*Michael De Vlieger_，2016年6月27日，10.2*版）

%o（方案）；；记住Antti Karttunen的IntSeq-library中定义的宏

%o（定义（A219666 n）（条件（（<=n 2）n））（（=（A226061（A230411 n））n）（-（A000142（A23041 n））1））（其他（-（A219665（+n 1））

%o；；另一种变体，利用A230416（这为计算该序列的大量项提供了更方便的方法）：

%o（定义（A219666 n）（A230416（A230432 n）））

%o；；此函数用于检查n是否属于此序列：

%o（定义（在A219666？n中）（或（零？n）（=1（-（A230418（+1 n））（A23048n））））

%Y参见A007623、A034968、A219651、A230411、A226061。对于所有n，A219652（a（n））=n和A219653（n）<=a（n”）<=A219655（n）。

%Y特征函数：Ⅹ_A219666（n）=A230418（n+1）-A230418（n）。

%Y第一个差异：A230406。

%Y其他衍生序列：A230425-A230427、A230430、A230407-A230409、A219662和A219663、A231723和A231724、A230420、A2304、A231717、A23171。

%Y子集：A230428和A230429。

%Y二进制系统的类似序列：A179016，斐波那契数制：A219648。

%K nonn，基础

%0、3

%2012年11月25日，安蒂·卡图内