|
%I #10 Sep 20 2018 16:51:39
%S 1,1,1,1,2,2,4,6,10,17,29,53,93,169,308,566,1068,1975,3742,7061,13427,
%T 25634,49151,94474,182262,352361,683304,1327941,2586839,5049398,
%U 9873715,19343014,37952032,74584811,146783263,289264739
%N Shifts left 2 places under "DGK" (bracelet, element, unlabeled) transform.
%H Andrew Howroyd, <a href="/A032237/b032237.txt">Table of n, a(n) for n = 1..200</a>
%H C. G. Bower, <a href="/transforms2.html">Transforms (2)</a>
%H <a href="/index/Mo#mobiles">Index entries for sequences related to mobiles</a>
%o (PARI)
%o DGK(v)={apply(p->subst(serlaplace(p/y + polcoeff(p,1) + polcoeff(p,2)),y,1)/2, Vec(prod(k=1, #v, (1 + x^k*y + O(x*x^#v))^v[k])-1, -#v))}
%o seq(n)={my(v=vector(2-n%2,i,1)); for(i=1, (n-1)\2, v=concat([1,1], DGK(v))); v} \\ _Andrew Howroyd_, Sep 20 2018
%K nonn,eigen
%O 1,5
%A _Christian G. Bower_
|
