login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A241733 Number of partitions p of n such that round(mean(p)) is a part of p; here, round(x) means floor(x + 1/2). 3
0, 1, 2, 3, 4, 5, 7, 10, 13, 18, 24, 31, 44, 57, 73, 94, 127, 166, 203, 268, 338, 424, 548, 674, 858, 1046, 1321, 1643, 1973, 2472, 3026, 3774, 4529, 5455, 6736, 8013, 9699, 11899, 14299, 16926, 20377, 24373, 29018, 34679, 41447, 48688, 57395, 68775, 81535 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

For the corresponding sequence using "round" as in Mathematica, see A241338.

LINKS

Table of n, a(n) for n=0..48.

FORMULA

a(n) + A241734(n) = A000041(n) for n >= 0.

EXAMPLE

a(6) counts these 7 partitions:  6, 33, 321, 222, 2211, 21111, 111111.

MATHEMATICA

z = 40; f[n_] := f[n] = IntegerPartitions[n];

Table[Count[f[n], p_ /; MemberQ[p, Floor[Mean[p] + 1/2]]], {n, 0, z}]   (* A241733 *)

Table[Count[f[n], p_ /; ! MemberQ[p, Floor[Mean[p] + 1/2]]], {n, 0, z}]   (* A241734 *)

CROSSREFS

Cf. A241338, A241734.

Sequence in context: A193771 A160333 A174578 * A241338 A271489 A018127

Adjacent sequences:  A241730 A241731 A241732 * A241734 A241735 A241736

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Apr 28 2014

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 March 30 19:09 EDT 2020. Contains 333127 sequences. (Running on oeis4.)