login
a(n) = A322827(2n) / A322827(n).
4

%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