|
|
A242007
|
|
G.f. satisfies: A(x) = 1 - x + A(x)^3 - A(x*A(x)^3).
|
|
3
|
|
|
1, 1, 0, 2, 13, 195, 3435, 76414, 2022174, 62187697, 2179140792, 85721566443, 3740826531268, 179358254323264, 9372717617658837, 530222429589968085, 32283696960793539142, 2105064707592004243848, 146354134558836060119604, 10807595142239085940171930
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ c * 3^n * n^(n - 1 - 2/3*log(2)) / (exp(n) * (log(2))^n), where c = 0.056839945305333083135569...
|
|
PROG
|
(PARI) {a(n)=local(A=1+x); for(i=1, n, A = 2*A - (1-x + A^3 - subst(A, x, x*A^3 +x*O(x^n))) ); polcoeff(A, n)}
for(n=0, 20, print1(a(n), ", "))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|