|
%I #7 Sep 20 2018 16:33:07
%S 1,1,1,1,2,2,4,7,11,21,36,72,131,250,479,924,1832,3553,7039,13952,
%T 27720,55482,111199,223683,451416,912333,1850179,3758123,7652318,
%U 15609910,31896318,65290662,133841148,274787842,564923951
%N Shifts left 2 places under "CGK" (necklace, element, unlabeled) transform.
%H Andrew Howroyd, <a href="/A032162/b032162.txt">Table of n, a(n) for n = 1..200</a>
%H C. G. Bower, <a href="/transforms2.html">Transforms (2)</a>
%o (PARI)
%o CGK(v)={apply(p->subst(serlaplace(p/y),y,1), 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], CGK(v))); v} \\ _Andrew Howroyd_, Sep 20 2018
%K nonn
%O 1,5
%A _Christian G. Bower_
|
