login
A032067
Shifts left 2 places under "BGK" (reversible, element, unlabeled) transform.
1
1, 1, 1, 1, 2, 2, 4, 8, 12, 25, 43, 94, 177, 350, 702, 1413, 2954, 5963, 12333, 25625, 53069, 111201, 232727, 489177, 1032483, 2178467, 4617781, 9797643, 20844394, 44427033, 94824892, 202789246, 434245483, 931328024
OFFSET
1,5
LINKS
C. G. Bower, Transforms (2)
PROG
(PARI)
BGK(v)={apply(p->subst(serlaplace(y^0*p + polcoeff(p, 1)), y, 1)/2, Vec(prod(k=1, #v, (1 + x^k*y + O(x*x^#v))^v[k])-1, -#v))}
seq(n)={my(v=vector(2-n%2, i, 1)); for(i=1, (n-1)\2, v=concat([1, 1], BGK(v))); v} \\ Andrew Howroyd, Sep 20 2018
CROSSREFS
Sequence in context: A048114 A268691 A102456 * A337361 A153996 A123024
KEYWORD
nonn
STATUS
approved