|
%I #10 Feb 27 2014 03:26:13
%S 1,1,0,1,3,1,3,3,10,18,12,26,39,57,59,116,201,219,325,416,625,810,
%T 1074,1447,2345,3078,3530,5084,6790,9063,11674,15580,20887,27537,
%U 33640,45065,61297,76883,96889,126243,169268,210005,262068,337445,438197,552346,686794,865904,1128611,1407533,1732572
%N Alternating square row sums of the table A072233 (A008284).
%H Vincenzo Librandi, <a href="/A238313/b238313.txt">Table of n, a(n) for n = 0..90</a>
%F a(n) = sum((-1)^(n-k)*p(n,k)^2,k=0..n), where p(n,k) is the number of partitions of n into k positive parts (A072233, A008284).
%t pnkList[n_] := Table[Length[IntegerPartitions[n, {k}]], {k,0,n}]
%t Table[Total[Table[(-1)^(n-k),{k,0,n}] Map[#^2 &, pnkList[n]]], {n,0,50}]
%Y Cf. A072233, A008284.
%K nonn
%O 0,5
%A _Emanuele Munarini_, Feb 24 2014
|
