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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A179848 Expansion of series reversion of generating function for triangular numbers. 2
0, 1, -3, 12, -55, 273, -1428, 7752, -43263, 246675, -1430715, 8414640, -50067108, 300830572, -1822766520, 11124755664, -68328754959, 422030545335, -2619631042665, 16332922290300, -102240109897695, 642312451217745, -4048514844039120, 25594403741131680 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..375

FORMULA

A001764(n) = 0^n - (-1)^n * a(n).

G.f. A(x) satisfies A(x) = x * (1 - A(x))^3.

G.f.: 1 - sinh( arcsinh( sqrt( 27*x/4 ) ) / 3 ) / sqrt( 3*x/4 ).

EXAMPLE

x - 3*x^2 + 12*x^3 - 55*x^4 + 273*x^5 - 1428*x^6 + 7752*x^7 - 43263*x^8 + ...

MAPLE

a:= n-> coeff(series(RootOf(A=x*(1-A)^3, A), x, n+1), x, n):

seq(a(n), n=0..30);  # Alois P. Heinz, May 16 2012

PROG

(PARI) {a(n) = if( n<1, 0, -(-1)^n * (3*n)! / (n! * (2*n+1)!) )}

(PARI) {a(n) = if( n<1, 0, polcoeff( serreverse( x / (1 - x)^3 + x * O(x^n) ), n))}

(PARI) {a(n) = local(A); if( n<0, 0, A = O(x); for( k = 0, n, A = x * (1 - A)^3 ); polcoeff( A, n ))}

CROSSREFS

Cf. A000217.

Sequence in context: A256142 A024038 A007199 * A001764 A171780 A216493

Adjacent sequences:  A179845 A179846 A179847 * A179849 A179850 A179851

KEYWORD

sign

AUTHOR

Michael Somos, Jan 10 2011

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 19 03:25 EST 2018. Contains 299330 sequences. (Running on oeis4.)