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-5 of 5 results.

A052830 A simple grammar: sequences of rooted cycles.

Original entry on oeis.org

1, 0, 2, 3, 32, 150, 1524, 12600, 147328, 1705536, 23681520, 345605040, 5654922624, 98624766240, 1870594556544, 37794037488480, 817362198512640, 18742996919324160, 455648694329309184, 11683777530785978880, 315505598702787118080, 8943481464393674096640
Offset: 0

Views

Author

encyclopedia(AT)pommard.inria.fr, Jan 25 2000

Keywords

Comments

Asymptotic behavior (formula 3.2.) in the INRIA reference is wrong! - Vaclav Kotesovec, Jun 03 2019

Links

Crossrefs

Cf. A353880, A353881, A353882.
Cf. A052848, A066166.

Programs

  • Maple
    spec := [S,{B=Prod(C,Z),C=Cycle(Z),S=Sequence(B)},labeled]: seq(combstruct[count](spec, size=n), n=0..20);
  • Mathematica
    CoefficientList[Series[1/(1+x*Log[1-x]), {x, 0, 20}], x]* Range[0, 20]! (* Vaclav Kotesovec, Sep 30 2013 *)
  • Maxima
    a(n):=(-1)^(n)*n!*sum((k!*stirling1(n-k,k))/(n-k)!,k,0,n/2); /* Vladimir Kruchinin, Nov 16 2011 */
  • PARI
    a_vector(n) = my(v=vector(n+1)); v[1]=1; for(i=1, n, v[i+1]=i!*sum(j=2, i, 1/(j-1)*v[i-j+1]/(i-j)!)); v; \\ Seiichi Manyama, May 04 2022
  • PARI
    a(n) = n!*sum(k=0, n\2, k!*abs(stirling(n-k, k, 1))/(n-k)!); \\ Seiichi Manyama, May 04 2022

Formula

E.g.f.: 1/(1-x*log(1/(1-x))).
a(n) = (-1)^n*n!*Sum_{k=0..floor(n/2)} k!*Stirling1(n-k,k)/(n-k)!. - Vladimir Kruchinin, Nov 16 2011
a(n) ~ n! * r^(n+1)/(r+1/(r-1)), where r = 1.349976485401125... is the root of the equation (r-1)*exp(r) = r. - Vaclav Kotesovec, Sep 30 2013
a(0) = 1; a(n) = n! * Sum_{k=2..n} 1/(k-1) * a(n-k)/(n-k)!. - Seiichi Manyama, May 04 2022

Extensions

More terms from Alois P. Heinz, Mar 16 2016

A353880 Expansion of e.g.f. 1/(1 - (x * log(1-x))^2 / 4).

Original entry on oeis.org

1, 0, 0, 0, 6, 30, 165, 1050, 10192, 108864, 1230660, 14758920, 195861996, 2852815680, 44880446520, 753211040400, 13458760362720, 255688784416800, 5149255813778160, 109489194918180000, 2450182706364430080, 57567025900160259840, 1417073899136197468320
Offset: 0

Views

Author

Seiichi Manyama, May 09 2022

Keywords

Crossrefs

Cf. A052830, A353881, A353882.
Cf. A346921, A353883.

Programs

  • PARI
    my(N=30, x='x+O('x^N)); Vec(serlaplace(1/(1-(x*log(1-x))^2/4)))
  • PARI
    a(n) = n!*sum(k=0, n\4, (2*k)!*abs(stirling(n-2*k, 2*k, 1))/(4^k*(n-2*k)!));

Formula

a(n) = n! * Sum_{k=0..floor(n/4)} (2*k)! * |Stirling1(n-2*k,2*k)|/(4^k * (n-2*k)!).

A353882 Expansion of e.g.f. 1/(1 - (x * log(1-x))^4 / 576).

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 0, 0, 70, 1260, 17850, 242550, 3350655, 48108060, 724403680, 11478967500, 191632761320, 3369643717440, 62346624827760, 1212116258480400, 24721764604046280, 528066880710319440, 11793526736005503720, 274937000436908714520
Offset: 0

Views

Author

Seiichi Manyama, May 09 2022

Keywords

Crossrefs

Cf. A052830, A353880, A353881.
Cf. A346923, A353885.

Programs

  • PARI
    my(N=30, x='x+O('x^N)); Vec(serlaplace(1/(1-(x*log(1-x))^4/576)))
  • PARI
    a(n) = n!*sum(k=0, n\8, (4*k)!*abs(stirling(n-4*k, 4*k, 1))/(576^k*(n-4*k)!));

Formula

a(n) = n! * Sum_{k=0..floor(n/8)} (4*k)! * |Stirling1(n-4*k,4*k)|/(576^k * (n-4*k)!).

A353884 Expansion of e.g.f. 1/(1 - (x * (exp(x) - 1))^3 / 36).

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 20, 210, 1400, 7560, 36120, 159390, 1035100, 17082780, 329893564, 5336661330, 73265956400, 889068944400, 9968073461616, 112902000191334, 1531070090032500, 27610559023112100, 586336131631313140, 12550716321612658266, 254052845940651258600
Offset: 0

Views

Author

Seiichi Manyama, May 09 2022

Keywords

Crossrefs

Cf. A052848, A353883, A353885.
Cf. A346894, A353881.

Programs

  • PARI
    my(N=30, x='x+O('x^N)); Vec(serlaplace(1/(1-(x*(exp(x)-1))^3/36)))
  • PARI
    a(n) = n!*sum(k=0, n\6, (3*k)!*stirling(n-3*k, 3*k, 2)/(36^k*(n-3*k)!));

Formula

a(n) = n! * Sum_{k=0..floor(n/6)} (3*k)! * Stirling2(n-3*k,3*k)/(36^k * (n-3*k)!).

A353892 Expansion of e.g.f. exp( -(x * log(1-x))^3 / 36 ).

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 20, 210, 1960, 18900, 194880, 2166780, 26172080, 342599400, 4835694864, 73208215080, 1183011385920, 20318534134080, 369549843420384, 7094851788127680, 143377043010268800, 3042204544957939200, 67621161484919380800, 1571319471977711258880
Offset: 0

Views

Author

Seiichi Manyama, May 09 2022

Keywords

Crossrefs

Cf. A066166, A353891, A353893.
Cf. A347002, A353881, A353895.

Programs

  • PARI
    my(N=30, x='x+O('x^N)); Vec(serlaplace(exp(-(x*log(1-x))^3/36)))
  • PARI
    a(n) = n!*sum(k=0, n\6, (3*k)!*abs(stirling(n-3*k, 3*k, 1))/(36^k*k!*(n-3*k)!));

Formula

a(n) = n! * Sum_{k=0..floor(n/6)} (3*k)! * |Stirling1(n-3*k,3*k)|/(36^k * k! * (n-3*k)!).
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.