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

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A243740 Number of compositions of n with exactly five occurrences of the largest part. 2
1, 0, 0, 0, 0, 1, 6, 21, 56, 126, 253, 468, 819, 1385, 2317, 3928, 6908, 12803, 25079, 51415, 108598, 232784, 500780, 1073700, 2285703, 4822956, 10082161, 20884730, 42892750, 87405633, 176867184, 355685658, 711460052, 1416584340, 2809770487, 5555833511 (list; graph; refs; listen; history; text; internal format)
OFFSET

5,7

LINKS

Joerg Arndt and Alois P. Heinz, Table of n, a(n) for n = 5..650

MAPLE

b:= proc(n, p, i) option remember; `if`(n=0, p!,

      `if`(i<1, 0, add(b(n-i*j, p+j, i-1)/j!, j=0..n/i)))

    end:

a:= proc(n) local k; k:=5;

      add(b(n-i*k, k, i-1)/k!, i=1..n/k)

    end:

seq(a(n), n=5..50);

MATHEMATICA

b[n_, p_, i_] := b[n, p, i] = If[n == 0, p!, If[i<1, 0, Sum[b[n-i*j, p+j, i-1]/j!, {j, 0, n/i}]]]; a[n_] := (k=5; Sum[b[n-i*k, k, i-1]/k!, {i, 1, n/k}]); Table[a[n], {n, 5, 40}] (* Jean-Fran├žois Alcover, Feb 10 2015, after Maple *)

CROSSREFS

Column k=5 of A238341.

Sequence in context: A019500 A100356 A229886 * A137361 A058484 A145455

Adjacent sequences:  A243737 A243738 A243739 * A243741 A243742 A243743

KEYWORD

nonn

AUTHOR

Joerg Arndt and Alois P. Heinz, Jun 09 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 January 17 18:14 EST 2020. Contains 330987 sequences. (Running on oeis4.)