OFFSET
1,3
LINKS
FORMULA
Doubles (index 2+) under "DIK" (bracelet, indistinct, unlabeled) transform.
PROG
(PARI)
DIK(p, n)={(sum(d=1, n, eulerphi(d)/d*log(subst(1/(1+O(x*x^(n\d))-p), x, x^d))) + ((1+p)^2/(1-subst(p, x, x^2))-1)/2)/2}
seq(n)={my(p=x); for(i=2, n, p+=x^i*polcoeff(DIK(p, i), i)); Vecrev(p/x)} \\ Andrew Howroyd, Jun 21 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved