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

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, 7, 6, 3, 6, 7, 210, 7, 210, 13, 210, 7, 210, 13, 30030, 13, 210, 13, 210, 7, 6, 7, 210, 7, 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

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, A323504.

Bisection of A323507.

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));
A323503(n) = A322827(2*n)/A322827(n);

Formula

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