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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A025591 Maximal coefficient of Product_{k<=n} (x^k+1). Number of solutions to +- 1 +- 2 +- 3 +- ... +- n = 0 or 1. 21
1, 1, 1, 2, 2, 3, 5, 8, 14, 23, 40, 70, 124, 221, 397, 722, 1314, 2410, 4441, 8220, 15272, 28460, 53222, 99820, 187692, 353743, 668273, 1265204, 2399784, 4559828, 8679280, 16547220, 31592878, 60400688, 115633260, 221653776, 425363952, 817175698 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

COMMENTS

If k is allowed to approach infinity, this gives the partition numbers A000009.

a(n) is the maximal number of subsets of {1,2,...,n} that share the same sum.

LINKS

T. D. Noe, Alois P. Heinz and Ray Chandler, Table of n, a(n) for n = 0..3339 (terms < 10^1000, first 201 terms from T. D. Noe, next 200 terms from Alois P. Heinz)

Dorin Andrica and Ioan Tomescu, On an Integer Sequence Related to a Product of Trigonometric Functions, and Its Combinatorial Relevance , Journal of Integer Sequences, Vol. 5 (2002), Article 02.2.4

S. R. Finch, Signum equations and extremal coefficients.

E. Friedman and M. Keith, Magic Carpets, J. Int Sequences, 3 (2000), Article 00.2.5.

Robert A. Proctor, Solution of two difficult combinatorial problems with linear algebra, American Mathematical Monthly 89, 721-734.

B. D. Sullivan, On a conjecture of Adrica and Tomescu, J. Int. Sequences 16 (2013), Article 13.3.1

FORMULA

a(n) = A063865(n) + A063866(n).

MAPLE

b:= proc(n, i) option remember; `if`(n>i*(i+1)/2, 0,

      `if`(i=0, 1, b(n+i, i-1)+b(abs(n-i), i-1)))

    end:

a:=n-> b(0, n)+b(1, n):

seq(a(n), n=0..40);  # Alois P. Heinz, Mar 10 2014

MATHEMATICA

f[n_, s_] := f[n, s]=Which[n==0, If[s==0, 1, 0], Abs[s]>(n*(n+1))/2, 0, True, f[n-1, s-n]+f[n-1, s+n]]; Table[Which[Mod[n, 4]==0||Mod[n, 4]==3, f[n, 0], Mod[n, 4]==1||Mod[n, 4]==2, f[n, 1]], {n, 0, 40}]

PROG

(PARI) a(n)=if(n<0, 0, polcoeff(prod(k=1, n, 1+x^k), n*(n+1)\4))

CROSSREFS

Cf. A039828, A063865, A069918, A063866, A063867, A083309, A083527, A086376.

Sequence in context: A022863 A236393 A039822 * A028409 A183559 A080553

Adjacent sequences:  A025588 A025589 A025590 * A025592 A025593 A025594

KEYWORD

nonn,nice

AUTHOR

David W. Wilson

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified March 22 22:17 EDT 2017. Contains 283901 sequences.