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.

Showing 1-2 of 2 results.

A184184 Triangle read by rows: T(n,k) is the number of permutations of [n] having k adjacent cycles (0 <= k <= n). An adjacent cycle is a cycle of the form (i, i+1, i+2, ...) (including 1-element cycles).

Original entry on oeis.org

1, 0, 1, 0, 1, 1, 1, 2, 2, 1, 6, 8, 6, 3, 1, 34, 42, 27, 12, 4, 1, 216, 258, 156, 64, 20, 5, 1, 1566, 1824, 1068, 420, 125, 30, 6, 1, 12840, 14664, 8400, 3220, 930, 216, 42, 7, 1, 117696, 132360, 74580, 28080, 7950, 1806, 343, 56, 8, 1, 1193760, 1326120, 737640, 273960, 76440, 17094, 3192, 512, 72, 9, 1
Offset: 0

Views

Author

Emeric Deutsch, Feb 16 2011 (based on communication from Vladeta Jovovic)

Keywords

Comments

Sum of entries in row n is n!.
T(n,0) = A184185(n).
T(n,1) = A013999(n-1).
Sum_{k>=0} k*T(n,k) = 1! + 2! + ... + n! = A007489(n).

Examples

			T(3,2) = 2 because we have (1)(23) and (12)(3).
T(4,2) = 6 because we have (1)(234), (1)(24)(3), (12)(34), (123)(4), (14)(2)(3), and (13)(2)(4).
Triangle starts:
   1;
   0,  1;
   0,  1,  1;
   1,  2,  2,  1;
   6,  8,  6,  3,  1;
  34, 42, 27, 12,  4,  1;
		

Crossrefs

Programs

  • Maple
    T := proc (n, k) options operator, arrow: add((-1)^(n-k-i)*factorial(k+i)*binomial(i+1, n-k-i), i = ceil((1/2)*n-(1/2)*k-1/2) .. n-k)/factorial(k) end proc: for n from 0 to 10 do seq(T(n, k), k = 0 .. n) end do; # yields sequence in triangular form

Formula

G.f. of column k is (1/k!)*z^k*(1-z)*Sum_{i>=0} (k+i)!*(z-z^2)^i (private communication from Vladeta Jovovic, May 26 2009).
T(n,k) = (1/k!)*Sum_{i=ceiling((n-k-1)/2)..n-k} (-1)^(n-k-i)*(k+i)!*binomial(i+1, n-k-i).
The bivariate g.f. is G(t,z) = ((1-z)/(1-tz))*F((z-z^2)/(1-tz)), where F(z) = Sum_{j>=0} j!*z^j.

A346550 Expansion of Sum_{k>=0} k! * x^k * (1 + x)^(k+1).

Original entry on oeis.org

1, 2, 4, 13, 54, 278, 1704, 12126, 98280, 893904, 9017280, 99918120, 1206500400, 15768729360, 221792780160, 3340515069360, 53641756586880, 914849722725120, 16514863528665600, 314599179867396480, 6306817346711481600, 132727279189258656000
Offset: 0

Views

Author

Seiichi Manyama, Nov 30 2021

Keywords

Crossrefs

Programs

  • Mathematica
    a[n_] := Sum[k! * Binomial[k + 1, n - k], {k, Floor[n/2], n}]; Array[a, 22, 0] (* Amiram Eldar, Nov 30 2021 *)
  • PARI
    a(n) = sum(k=n\2, n, k!*binomial(k+1, n-k));
    
  • PARI
    a(n) = if(n<3, 2^n, (n-2)*a(n-1)+2*(n-1)*a(n-2)+(n-2)*a(n-3));
    
  • PARI
    my(N=40, x='x+O('x^N)); Vec(sum(k=0, N, k!*x^k*(1+x)^(k+1)))

Formula

a(n) = Sum_{k=floor(n/2)..n} k! * binomial(k+1,n-k).
a(n) = A240172(n-1) + A240172(n) for n > 0.
a(n) = (n-2) * a(n-1) + 2 * (n-1) * a(n-2) + (n-2) * a(n-3) for n > 2.
a(n) ~ exp(1) * n! * (1 - 1/n + 3/(2*n^2) - 2/(3*n^3) - 47/(24*n^4) + 49/(120*n^5) + 6421/(720*n^6) + ...). - Vaclav Kotesovec, Dec 11 2021
Showing 1-2 of 2 results.