OFFSET
1,4
LINKS
Andrew Howroyd, Table of n, a(n) for n = 1..200
C. G. Bower, Transforms (2)
FORMULA
"CFK" (Necklace, size, unlabeled) transform of A032009 (shifted right one place)
PROG
(PARI)
AFK(v)={apply(p->subst(serlaplace(y^0*p), y, 1), Vec(-1+prod(k=1, #v, 1 + v[k]*x^k*y + O(x*x^#v)), -#v))}
CFK(v)={apply(p->subst(serlaplace(p/y), y, 1), Vec(-1+prod(k=1, #v, 1 + v[k]*x^k*y + O(x*x^#v)), -#v))}
seq(n)={my(v=[1]); for(i=3, n, v=concat([1], AFK(v))); concat([1], CFK(v))} \\ Andrew Howroyd, Sep 20 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved