|
%I #5 Jan 17 2019 17:20:09
%S 1,2,3,2,6,5,3,2,6,5,7,30,6,5,3,2,6,5,7,30,210,11,7,30,6,5,7,30,6,5,3,
%T 2,6,5,7,30,210,11,7,30,210,11,13,2310,210,11,7,30,6,5,7,30,210,11,7,
%U 30,6,5,7,30,6,5,3,2,6,5,7,30,210,11,7,30,210,11,13,2310,210,11,7,30,210,11,13,2310,30030,17,13,2310,210,11,13,2310
%N a(n) = A322827(n) / A322827(floor(n/2)).
%H Antti Karttunen, <a href="/A323507/b323507.txt">Table of n, a(n) for n = 0..16383</a>
%F a(n) = A322827(n) / A322827(floor(n/2)).
%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 A323507(n) = A322827(n)/A322827(n>>1);
%Y Cf. A322827.
%Y Cf. A323503, A323504 (bisections).
%K nonn
%O 0,2
%A _Antti Karttunen_, Jan 17 2019
|
