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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A082550 Number of sets of distinct positive integers whose arithmetic mean is an integer, the largest integer of the set being n. 10
1, 1, 3, 3, 7, 11, 19, 31, 59, 103, 187, 343, 631, 1171, 2191, 4095, 7711, 14571, 27595, 52431, 99879, 190651, 364723, 699071, 1342183, 2581111, 4971067, 9586983, 18512791, 35791471, 69273667, 134217727, 260301175, 505290271, 981706831, 1908874583, 3714566311 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

COMMENTS

Equivalently, number of nonempty subsets of [n] the sum of whose elements is divisible by n. - Dimitri Papadopoulos, Jan 18 2016

LINKS

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

FORMULA

a(n) = A063776(n) - 1.

a(n) = A051293(n+1) - A051293(n). - Reinhard Zumkeller, Feb 19 2006

a(n) = A008965(n) for odd n. - Dimitri Papadopoulos, Jan 18 2016

G.f.: -x/(1 - x) - Sum_{m >= 0} (phi(2*m + 1)/(2*m + 1)) * log(1 - 2*x^(2*m + 1)). - Petros Hadjicostas, Jul 13 2019

a(n) = A309402(n,n). - Alois P. Heinz, Jul 28 2019

EXAMPLE

a(5) = 7: the seven sets are (1+2+3+4+5)/5 = 3, 5/1 = 5, (1+5)/2 = 3, (1+3+5)/3 = 3, (3+5)/2 = 4, (3+4+5)/3 = 4, (1+2+4+5)/4 = 3.

MATHEMATICA

Table[Length[Select[Select[Subsets[Range[n]], Max[#]==n&], IntegerQ[ Mean[ #]]&]], {n, 22}] (* Harvey P. Dale, Jul 23 2011 *)

Table[Total[Table[Length[Select[Select[Subsets[Range[n]], Length[#] == k &], IntegerQ[Total[#]/n] &]], {k, n}]], {n, 10}] (* Dimitri Papadopoulos, Jan 18 2016 *)

PROG

(PARI) a(n) = sumdiv(n, d, (d%2)* 2^(n/d)*eulerphi(d))/n - 1; \\ Michel Marcus, Feb 10 2016

CROSSREFS

Cf. A008965, A051293, A063776, A309402.

Row sums of A267632.

Sequence in context: A305099 A292141 A022403 * A327397 A036056 A278789

Adjacent sequences:  A082547 A082548 A082549 * A082551 A082552 A082553

KEYWORD

easy,nonn

AUTHOR

Naohiro Nomoto, May 03 2003

EXTENSIONS

a(22) from Harvey P. Dale, Jul 23 2011

a(23)-a(32) from Dimitri Papadopoulos, Jan 18 2016

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 November 22 00:32 EST 2019. Contains 329383 sequences. (Running on oeis4.)