A236430 Number of representations of 1 as a sum of numbers d*k with d in {-1,1} and k in {1,2,...,n}, where the sum of the numbers k is 2n + 1.

2, 5, 11, 22, 42, 76, 134, 228, 379, 606, 985, 1528, 2364, 3576, 5419, 7988, 11868, 17163, 24937, 35599, 50787, 71290, 100748, 139734, 194113

Offset

1,1

Comments

a(n) = number of partitions of 2n+1 that contain a partition of n+1.

Links

Table of n, a(n) for n=1..25.

Example

a(2) counts these 5 representations of 1: 3-2, 3-1-1, 2+1-2, 2+1-1-1, 1+1+1-1-1.

Mathematica

p[n_] := p[n] = IntegerPartitions[n]; Map[({p1 = p[#], p2 = p[2 #]} &[#];    Length[Cases[p2, Apply[Alternatives, Map[Flatten[{___, #, ___}] &, p1]]]]) &,  Range[12]]
Map[({p1 = p[# + 1], p2 = p[2 # + 1]} &[#]; Length[Cases[p2, Apply[Alternatives, Map[Flatten[{___, #, ___}] &, p1]]]]) &, Range[12]]
(* Peter J. C. Moses, Jan 04 2014 *)

Crossrefs

Cf. A236429, A235130.

Sequence in context: A135119 A290778 A291590 * A058696 A134508 A091357

Adjacent sequences: A236427 A236428 A236429 * A236431 A236432 A236433

Keyword

nonn,more

Author

Clark Kimberling, Jan 25 2014

Status

approved