%I#2 2012年3月30日17:34:35

%序号1,2,3,12,3018012605040151201512001663200

%N A004001序列向量的排列数：a（N）=长度[排列[表[A004001[i]，{i，0，m}]]

%F F（n）=F（F（n-1））+F（n-F（n-1））；

%F a（n）=长度[排列[表[F（i），{i，0，m}]]

%t（*A004001*）

%t f[0]=0；f[1]=1；f[2]=1；

%tf[n]：=f[n]=f[f[n-1]]+f[n-f[n-1]]；

%t a[m_]：=长度[排列[表[f[i]，{i，0，m}]]；

%t b=表[a[m]，{m，0，10}]

%K nonn，未编辑

%0、2

%A _Roger L.Bagula，2010年4月4日