|
%I #12 Sep 27 2015 16:44:37
%S 1,2,6,12,25,42,77,120,198,300,462,672,1001,1414,2025,2816,3927,5346,
%T 7315,9800,13167,17424,23046,30120,39375,50908,65772,84280,107822,
%U 136950,173724,218944,275517,344862,430850,535788,665149,822206,1014585,1247400
%N Sum of all parts of all partitions of n that contain 1 as a part.
%F a(n) = n*A000041(n-1).
%F a(n) = A066186(n-1) + A000041(n-1), n >= 2.
%F a(n) = A194552(n-1) + A000070(n-1), n >= 2.
%t Table[Total[Flatten[Select[IntegerPartitions[n],MemberQ[#,1]&]]],{n,40}] (* _Harvey P. Dale_, Sep 27 2015 *)
%Y Column 1 of A182701.
%Y Cf. A000041, A000070, A066186, A138880, A194552, A228823.
%K nonn
%O 1,2
%A _Omar E. Pol_, Sep 23 2013
|
