login
a(n) is the number of partitions p = p(1) >= p(2) >= ... >= p(k) of n whose alternating sum is a part of p.
0

%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