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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A048800 E.g.f. satisfies A(x) = 1 + x * A(x / (1 - x)). 2
1, 1, 2, 12, 120, 1800, 37440, 1023120, 35360640, 1502323200, 76738233600, 4629350880000, 325036115712000, 26238156161817600, 2409994778846054400, 249634150247978496000, 28935351060849192960000, 3727654806346921562112000, 530531863561703729037312000 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Table of n, a(n) for n=0..18.

MATHEMATICA

m = 17; A[_] = 0;

Do[A[x_] = 1 + x A[x/(1 - x)] + O[x]^m // Normal, {m}];

CoefficientList[A[x], x]*Range[0, m - 1]! (* Jean-Fran├žois Alcover, Oct 02 2019 *)

PROG

(PARI) Vec( serlaplace( 1 + x * serlaplace( exp(exp(x) - 1)))) /* Michael Somos, Jun 14 1999 */

(Sage) [factorial(m) * bell_number(m - 1) for m in range(17)]  # Zerinvary Lajos, Jul 06 2008

CROSSREFS

A048800(n) = n!*A000110(n-1), n>0. - Michael Somos, Jun 14 1999

Sequence in context: A131815 A177774 A047793 * A251185 A052738 A229901

Adjacent sequences:  A048797 A048798 A048799 * A048801 A048802 A048803

KEYWORD

nonn,eigen

AUTHOR

Christian G. Bower, Mar 15 1999

EXTENSIONS

Description corrected by Michael Somos

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 April 19 17:46 EDT 2021. Contains 343117 sequences. (Running on oeis4.)