|
Search: id:A120922
|
|
| |
|
| 1, 3, 18, 128, 876, 6138, 43373, 307857, 2194731, 15698743, 112614054, 809905638, 5838361138, 42178611879, 305340946455, 2214760026120, 16094665727934, 117171115942752, 854506665035841, 6242259681316251, 45674776431331398
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
PROGRAM
|
(PARI) {a(n)=local(A, F=(1+x)^3, d=3, G=x, H=1+x, S=ceil(log(n+1)/log(d+1))); for(i=0, n, G=x*subst(F, x, G+x*O(x^n))); for(i=0, S, H=subst(H, x, x*G^d+x*O(x^n))*G/x); A=(x*H-y*subst(H, x, x*y^d +x*O(x^n)))/(x*subst(F, x, y)-y); polcoeff(polcoeff(A, n, x), n, y)}
|
|
CROSSREFS
|
Cf. A120919, A120920, A120921, A120923.
Adjacent sequences: A120919 A120920 A120921 this_sequence A120923 A120924 A120925
Sequence in context: A004987 A074557 A073971 this_sequence A047731 A060909 A074545
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Paul D. Hanna (pauldhanna(AT)juno.com), Jul 17 2006
|
|
|
Search completed in 0.002 seconds
|
