OFFSET
0,15
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..500
MATHEMATICA
a[n_]:=a[n]=1-Sum[a[k]*a[n-k], {k, 1, (n-1)/2}];
Array[a, 40]
PROG
(PARI) seq(n)={my(v=vector(n)); for(n=1, n, v[n] = 1 - sum(k=1, (n-1)\2, v[k]*v[n-k])); concat([1], v)} \\ Andrew Howroyd, Aug 27 2018
CROSSREFS
KEYWORD
sign
AUTHOR
Gus Wiseman, Mar 13 2018
STATUS
approved