登录
(1+[n/sqrt(2)])的分形,其中[]=楼层。
4

%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日