login
This site is supported by donations to The OEIS Foundation.

 

Logo


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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

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