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

 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 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.

Last modified March 30 19:09 EDT 2020. Contains 333127 sequences. (Running on oeis4.)