cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-12 of 12 results.

A281901 Number of scenarios in the Gift Exchange Game with n players and n wrapped gifts when a gift can be stolen at most n times.

Original entry on oeis.org

1, 2, 31, 18252, 1495388159, 34155922905682979, 350521520018942991464535019, 2371013832433361706367594400829713564440, 14584126149704606223764458141727351569547933381159988406, 107640669875812795238625627484701500354901860426640161278022882392148747562
Offset: 0

Views

Author

Alois P. Heinz, Feb 01 2017

Keywords

Comments

Also total number of partitions of [k] into exactly n nonempty blocks, each of size at most n+1, for any k in the range n <= k <= n^2+n.

Crossrefs

Programs

  • Maple
    with(combinat):
    b:= proc(n, i, t) option remember; `if`(t*i add(b(j, n+1, n), j=0..(n+1)*n):
    seq(a(n), n=0..10);
  • Mathematica
    multinomial[n_, k_List] := n!/Times @@ (k!); b[n_, i_, t_] := b[n, i, t] = If[t*iJean-François Alcover, Mar 13 2017, translated from Maple *)

Formula

a(n) = A144510(n+1,n) = A144512(n,n).

A308390 a(n) = (1/n!) * Sum_{i_1=1..5} Sum_{i_2=1..5} ... Sum_{i_n=1..5} (-1)^(i_1 + i_2 + ... + i_n) * multinomial(i_1 + i_2 + ... + i_n; i_1, i_2, ..., i_n).

Original entry on oeis.org

1, -1, 56, -52556, 197741887, -2063348839223, 48406314676155689, -2224972937386763396470, 181775891472021264149048031, -24546223741277444828277125708238, 5178698199109137849496232609026642706, -1632057854975794517762778147823325297971400
Offset: 0

Views

Author

Seiichi Manyama, May 23 2019

Keywords

Crossrefs

Row n=5 of A308356.
Cf. A144509.

Programs

  • PARI
    {a(n) = sum(i=n, 5*n, (-1)^i*i!*polcoef(sum(j=1, 5, x^j/j!)^n, i))/n!}
Previous Showing 11-12 of 12 results.