|
%I #6 Jun 20 2018 22:14:41
%S 1,1,1,2,3,6,10,21,38,81,160,344,716,1571,3390,7548,16740,37778,85338,
%T 194894,446208,1028935,2379730,5531126,12892778,30162239,70745300,
%U 166403255,392286953,926915606,2194450545,5205237589
%N Shifts left 2 places under "DIK" (bracelet, indistinct, unlabeled) transform.
%H Andrew Howroyd, <a href="/A032291/b032291.txt">Table of n, a(n) for n = 1..200</a>
%o (PARI)
%o 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}
%o seq(n)={my(p=1+O(x));for(i=1, n\2, p=1+x+x*DIK(x*p, 2*i)); Vec(p+O(x^n))} \\ _Andrew Howroyd_, Jun 20 2018
%K nonn,eigen
%O 1,4
%A _Christian G. Bower_
|
