%I#10 2018年3月29日02:45:50
%S 1,1,2,1,2,3,1,2,4,3,1,2,4,5,3,12,4,5,1,5,6,3,12,45,7,8,
%温度6,3,1,2,4,5,7,8,9,6,3,1,2,4,5,7,8,10,6,1,2,4,5,7,8,9,11,10,6,3,1,
%U 2,4,5,7,8,9,11,12,10,63,1,2,4,5,7,8,9,11,12,13,10,6,3,1,2,4
%N(1+[N/sqrt(2)])的分形,其中[]=楼层。
%C关于序列分形诱导的分形和散布的讨论,请参见A194959。序列(1+[n/sqrt(2)])是A049474。
%H G.C.Greubel,n表,n=1..11325的a(n)</a>
%t r=平方米[2];p[n_]:=1+楼层[n/r]
%t表[p[n],{n,1,90}](*A049474*)
%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](*A194976*)
%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}]](*A194977*)
%tq[n_]:=位置[w,n];压扁[表[q[n],
%t{n,1,80}]](*A194978*)
%Y参见A194959、A049474、A194977和A194978。
%K nonn公司
%氧1,3
%云雀金伯利,2011年9月7日