login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A300870 E.g.f. A(x) satisfies: [x^n] A(x)^(n*(n+1)) = n*(n+1) * [x^(n-1)] A(x)^(n*(n+1)) for n>=1. 7
1, 1, 7, 307, 37537, 8755561, 3304572391, 1847063377867, 1447456397632897, 1532041772833285777, 2130468278450240803591, 3808068399270998260188451, 8590473242021318921848038817, 24074336129439663228349612217977, 82657249526888437632759608331784807, 343425012928825298349935150449843384891, 1707701025594135213863151839769061397729281 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

Compare e.g.f. to: [x^n] exp(x)^(n*(n+1)) = (n+1) * [x^(n-1)] exp(x)^(n*(n+1)) for n>=1.

LINKS

Paul D. Hanna, Table of n, a(n) for n = 0..200

EXAMPLE

E.g.f.: A(x) = 1 + x + 7*x^2/2! + 307*x^3/3! + 37537*x^4/4! + 8755561*x^5/5! + 3304572391*x^6/6! + 1847063377867*x^7/7! + 1447456397632897*x^8/8! + 1532041772833285777*x^9/9! + ...

ILLUSTRATION OF DEFINITION.

The table of coefficients of x^k in A(x)^(n*(n+1)) begins:

n=1: [(1), (2), 8, 328/3, 9728/3, 2241184/15, 420248704/45, ...];

n=2: [1, (6), (36), 432, 11328, 2470464/5, 150254784/5, ...];

n=3: [1, 12, (108), (1296), 29136, 5776128/5, 335166336/5, ...];

n=4: [1, 20, 260, (10480/3), (209600/3), 7265600/3, 1173400640/9, ...];

n=5: [1, 30, 540, 8640, (166800), (5004000), 241367040, 116509893120/7...];

n=6: [1, 42, 1008, 19656, 396816, (53339328/5), (2240251776/5), ...];

n=7: [1, 56, 1736, 124096/3, 2767184/3, 355355392/15, (38932329856/45), (2180210471936/45), ...]; ...

in which the coefficients in parenthesis are related by

2 = 1*2*(1); 36 = 2*3*(6); 1296 = 3*4*(108); 209600/3 = 4*5*(10480/3); 5004000 = 5*6*(166800); 2240251776/5 = 6*7*(53339328/5); ...

illustrating that: [x^n] A(x)^(n*(n+1)) = n*(n+1) * [x^(n-1)] A(x)^(n*(n+1)).

LOGARITHMIC PROPERTY.

The logarithm of the e.g.f. is the integer series:

log(A(x)) = x + 3*x^2 + 48*x^3 + 1510*x^4 + 71280*x^5 + 4511808*x^6 + 361640832*x^7 + 35516910960*x^8 + 4184770003200*x^9 + ... + A300871(n)*x^n + ...

PROG

(PARI) {a(n) = my(A=[1]); for(i=1, n+1, A=concat(A, 0); V=Vec(Ser(A)^((#A-1)*(#A))); A[#A] = ((#A-1)*(#A)*V[#A-1] - V[#A])/(#A-1)/(#A) ); EGF=Ser(A); n!*A[n+1]}

for(n=0, 20, print1(a(n), ", "))

CROSSREFS

Cf. A300871, A300590, A296170, A182962.

Sequence in context: A209806 A257919 A002437 * A239163 A086215 A119163

Adjacent sequences:  A300867 A300868 A300869 * A300871 A300872 A300873

KEYWORD

nonn

AUTHOR

Paul D. Hanna, Mar 14 2018

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 November 19 18:39 EST 2019. Contains 329323 sequences. (Running on oeis4.)