%I A097940
%S A097940 1,4,8,20,37,86,173,372,788,1680,3550,7554,15994,33820,71374,150376,
%T A097940 316151,663474,1389760,2906116,6066899,12645608,26318870,54700044,
%U A097940 113536171,235363832,487342781,1007969620,2082597193,4298660754
%N A097940 Sum of smallest parts (counted with multiplicity) of all compositions 
               of n.
%F A097940 G.f.: (1-x)^2*Sum(k*x^k/(1-x-x^k)^2, k=1..infinity).
%t A097940 Drop[ CoefficientList[ Series[(1 - x)^2*Sum[k*x^k/(1 - x - x^k)^2, {k, 
               50}], {x, 0, 30}], x], 1] (from Robert G. Wilson v Sep 08 2004)
%Y A097940 Cf. A046746, A092309.
%Y A097940 Sequence in context: A053303 A097164 A133628 this_sequence A032280 A156303 
               A008136
%Y A097940 Adjacent sequences: A097937 A097938 A097939 this_sequence A097941 A097942 
               A097943
%K A097940 easy,nonn
%O A097940 1,2
%A A097940 Vladeta Jovovic (vladeta(AT)eunet.rs), Sep 05 2004
%E A097940 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 08 2004