%I #7 Jan 17 2019 17:19:36
%S 1,3,6,3,6,7,6,3,6,7,210,7,6,7,6,3,6,7,210,7,210,13,210,7,6,7,210,7,6,
%T 7,6,3,6,7,210,7,210,13,210,7,210,13,30030,13,210,13,210,7,6,7,210,7,
%U 210,13,210,7,6,7,210,7,6,7,6,3,6,7,210,7,210,13,210,7,210,13,30030,13,210,13,210,7,210,13,30030,13,30030,19,30030,13
%N a(n) = A322827(2n) / A322827(n).
%H Antti Karttunen, <a href="/A323503/b323503.txt">Table of n, a(n) for n = 0..16383</a>
%F a(n) = A322827(2*n) / A322827(n).
%o (PARI)
%o A322827(n) = if(!n,1,my(bits = Vecrev(binary(n)), rl=1, o = List([])); for(i=2,#bits,if(bits[i]==bits[i-1], rl++, listput(o,rl))); listput(o,rl); my(es=Vecrev(Vec(o)), m=1); for(i=1,#es,m *= prime(i)^es[i]); (m));
%o A323503(n) = A322827(2*n)/A322827(n);
%Y Cf. A322827, A323504.
%Y Bisection of A323507.
%K nonn
%O 0,2
%A _Antti Karttunen_, Jan 17 2019