cp's OEIS Frontend

A323503 a(n) = A322827(2n) / A322827(n).

%I A323503 #7 Jan 17 2019 17:19:36
%S A323503 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 A323503 7,6,3,6,7,210,7,210,13,210,7,210,13,30030,13,210,13,210,7,6,7,210,7,
%U A323503 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 A323503 a(n) = A322827(2n) / A322827(n).
%H A323503 Antti Karttunen, <a href="/A323503/b323503.txt">Table of n, a(n) for n = 0..16383</a>
%F A323503 a(n) = A322827(2*n) / A322827(n).
%o A323503 (PARI)
%o A323503 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 A323503(n) = A322827(2*n)/A322827(n);
%Y A323503 Cf. A322827, A323504.
%Y A323503 Bisection of A323507.
%K A323503 nonn
%O A323503 0,2
%A A323503 _Antti Karttunen_, Jan 17 2019