A323507 a(n) = A322827(n) / A322827(floor(n/2)).

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, 2, 6, 5, 7, 30, 210, 11, 7, 30, 210, 11, 13, 2310, 210, 11, 7, 30, 6, 5, 7, 30, 210, 11, 7, 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

Offset: 0

Author

Antti Karttunen, Jan 17 2019

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 0..16383

Crossrefs

Cf. A322827.

Cf. A323503, A323504 (bisections).

Programs

PARI

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));
A323507(n) = A322827(n)/A322827(n>>1);

Formula

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