|
|
A325303
|
|
a(1) = 1; a(n+1) = -Sum_{d|n} a(n/d) * a(d).
|
|
3
|
|
|
1, -1, 2, -4, 7, -14, 32, -64, 120, -244, 502, -1004, 1996, -3992, 8048, -16124, 32104, -64208, 128712, -257424, 514416, -1028960, 2058924, -4117848, 8233832, -16467713, 32939418, -65879316, 131750904, -263501808, 527020884, -1054041768, 2108050776, -4216103560, 8432271328
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ -(-1)^n * c * 2^n, where c = 0.245410823583396667908354210407104718986708517177206856531763635090205896729... - Vaclav Kotesovec, Sep 09 2019
|
|
MATHEMATICA
|
a[n_] := a[n] = -Sum[a[(n - 1)/d] a[d], {d, Divisors[n - 1]}]; a[1] = 1; Table[a[n], {n, 1, 35}]
|
|
PROG
|
(PARI) seq(n)={my(v=vector(n)); v[1]=1; for(n=1, #v-1, v[n+1] = -sumdiv(n, d, v[d]*v[n/d])); v} \\ Andrew Howroyd, Sep 05 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|