%I #2 Mar 30 2012 17:34:35
%S 1,2,3,12,30,180,1260,5040,15120,151200,1663200
%N Number of permutations of A004001 sequence vectors:a(n)=Length[Permutations[Table[A004001[i], {i, 0, m}]]]
%F f(n) = f(f(n  1)) + f(n  f(n  1));
%F a(n)=Length[Permutations[Table[f(i), {i, 0, m}]]]
%t (*A004001*)
%t f[0] = 0; f[1] = 1; f[2] = 1;
%t f[n_] := f[n] = f[f[n  1]] + f[n  f[n  1]];
%t a[m_] := Length[Permutations[Table[f[i], {i, 0, m}]]];
%t b = Table[a[m], {m, 0, 10}]
%K nonn,uned
%O 0,2
%A _Roger L. Bagula_, Apr 04 2010
