%I A129949
%S A129949 1,2,5,20,110,700,5005,40264,362796,3628680,39916635,479001380,
%T A129949 6227020514,87178290836,1307674367545,20922789887440,355687428095320,
%U A129949 6402373705727184,121645100408831031,2432902008176638860
%N A129949 Variety of algebraic dimensions: A094258(n)-n*(n-1)/2=((n+1)!-n!)-n*(n-1)/
               2 such that: Sum[((n+1)!-n!),{n,0,m}]=m!.
%F A129949 A094258(n)=If[n == 0, 1, n*n! ]; a(n) = A094258(n)-n*(n-1)/2
%t A129949 f[n_] = If[n == 0, 1, n*n! ]; Table[Sum[f[m] - m*(m - 1)/2, {m, 0, n}], 
               {n, 0, 20}]
%Y A129949 Cf. A094258.
%Y A129949 Sequence in context: A152562 A006867 A019536 this_sequence A127065 A052850 
               A000130
%Y A129949 Adjacent sequences: A129946 A129947 A129948 this_sequence A129950 A129951 
               A129952
%K A129949 nonn,uned
%O A129949 1,2
%A A129949 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 10 2007