%I#5 2012年3月30日18:57:44

%S 1,1,2,1,2,3,1,2,3,4,1,2,4,5,1,6,2,34,5,6,7,2,3,15,6,1,7,8,2,3，

%温度4,5,1,6,7,8,9,2,3,4,5,1,6,7,18,9,10,2,3,1,4,5，6,11,7,8,10,2,3,4,1，

%U 6,11,12,7,8,9,10,2,3,4,5,1,6,11,12-13,7,2,8,9,2,3,1,5,6,11

%N（A053824（N+5））的分形，N>=0。

%C关于序列分形诱导的分形和散布的讨论，请参见A194959。序列（A053724（n+5）），n>=0是由n>=1的形式（n，n+1，n+2，n+3，n+4）的5个元组串联而成的：1,2,3,4,5,2,3,5,4,6,7，。。。

%t p[n_]：=楼层[（n+4）/5]+模块[n-1，5]

%t表[p[n]，{n，1，90}]（*A053824（n+5），n>=0*）

%tg[1]={1}；g[n_]：=插入[g[n-1]，n，p[n]]

%tf[1]=g[1]；f[n_]：=连接[f[n-1]，g[n]]

%t f[20]（*A194965*）

%t行[n_]：=位置[f[30]，n]；

%t u=表格形式[表格[行[n]，{n，1，5}]]

%tv[n_，k_]：=部件[行[n]，k]；

%t w=扁平[表[v[k，n-k+1]，{n，1，13}，

%t{k，1，n}]]（*A194966*）

%tq[n_]：=位置[w，n]；压扁[

%t表[q[n]，{n，1，80}]]（*A194967*）

%Y参见A194959、A194965、A19496、A194977。

%K nonn公司

%氧1,3

%A_Clark Kimberling_，2011年9月7日