%I #10 Jun 06 2019 02:38:45
%S 1,1,3,2,5,6,10,10,20,18,33,35,55,59,92,97,146,161,231,251,363,393,
%T 551,609,828,924,1240,1382,1824,2055,2665,3004,3870,4359,5551,6280,
%U 7910,8957,11201,12683,15728,17857,21951,24939,30472,34625,42031,47803,57677
%N a(n) is the number of partitions p = p(1) >= p(2) >= ... >= p(k) of n whose alternating sum is a part of p.
%e The a(6) = 6 partitions of 6 to be counted are these:
%e [6] has alternating sum 6, which is a part,
%e [4,2] has alternating sum 4 - 2 = 2, a part,
%e [4,1,1] has alternating sum 4 - 1 + 1 = 4,
%e [3,2,1] has alternating sum 3 - 2 + 1 = 2,
%e [2,2,2] has alternating sum 2 - 2 + 1 = 2, and
%e [2,1,1,1,1] has alternating sum 2 - 1 + 1 - 1 + 1 - 1 = 2.
%t Map[Count[Map[Apply[MemberQ, {#, Total[Map[
%t Total, {Take[##], Drop[##]} &[#, {1, -1, 2}] {1, -1}]]}] &,
%t IntegerPartitions[#]], True] &, Range[40]]
%t (* _Peter J. C. Moses_, May 25 2019 *)
%Y Cf. A000041, A308230.
%K nonn,easy
%O 1,3
%A _Clark Kimberling_, Jun 05 2019
|