This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A284618 Number of partitions of n such that the (sum of distinct even parts) > n/2. 3
 0, 1, 1, 1, 1, 3, 4, 5, 7, 13, 18, 14, 20, 33, 45, 45, 62, 92, 126, 124, 170, 240, 322, 288, 387, 530, 699, 669, 883, 1179, 1537, 1475, 1924, 2514, 3235, 3181, 4094, 5272, 6701, 6279, 7983, 10149, 12784, 12494, 15733, 19770, 24669, 23785, 29682, 36968, 45755 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,6 LINKS EXAMPLE a(6) counts these 3 partitions: 6, 41, 411. MATHEMATICA Table[p = IntegerPartitions[n]; Length[Select[Table[Total[Select[DeleteDuplicates[p[[k]]], EvenQ]], {k,      Length[p]}], # > n/2 &]], {n, 54}] CROSSREFS Cf. A284616, A284617, A284619. Sequence in context: A216574 A216561 A192269 * A101759 A089560 A248077 Adjacent sequences:  A284615 A284616 A284617 * A284619 A284620 A284621 KEYWORD nonn,easy AUTHOR Clark Kimberling, Apr 02 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 20 09:59 EDT 2019. Contains 322309 sequences. (Running on oeis4.)