|
|
A084203
|
|
G.f. A(x) defined by: A(x)^3 consists entirely of integer coefficients between 1 and 3 (A083953); A(x) is the unique power series solution with A(0)=1.
|
|
4
|
|
|
1, 1, 0, 0, 1, -1, 2, -2, 2, 0, -4, 12, -24, 38, -46, 33, 29, -176, 443, -827, 1222, -1310, 433, 2488, -8814, 19528, -33599, 44928, -37805, -17916, 168049, -463252, 921694, -1446018, 1679053, -808620, -2598482, 10515127, -24690122, 44515322, -62719429, 58496244, 10670109, -213311788, 632128236
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,7
|
|
COMMENTS
|
Does limit_{n ->infinity} a(n)/a(n+1) exist?
|
|
LINKS
|
|
|
MATHEMATICA
|
kmax = 45;
A[x_] = Sum[a[k] x^k, {k, 0, kmax}];
coes = CoefficientList[A[x]^3 + O[x]^kmax , x];
r = {};
Do[r = Flatten @ Append[r, Reduce[1 <= coes[[k]] <= 3, a[k-1], Integers] // ToRules]; coes = coes /. r, {k, 1, kmax}];
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|