A347232 a(n) = A346485(A276086(n)), where A346485 is Möbius transform of A342001.

0, 1, 1, 3, 1, 1, 1, 5, 6, 14, 4, 4, 1, 1, 2, 2, 0, 0, 1, 1, 2, 2, 0, 0, 1, 1, 2, 2, 0, 0, 1, 7, 8, 20, 6, 6, 10, 34, 44, 92, 24, 24, 6, 6, 12, 12, 0, 0, 6, 6, 12, 12, 0, 0, 6, 6, 12, 12, 0, 0, 1, 1, 2, 2, 0, 0, 4, 4, 8, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, 2, 0, 0, 4, 4, 8, 8

Offset: 0

Author

Antti Karttunen, Aug 26 2021

Keywords

• nonn
• base

Links

• Antti Karttunen, Table of n, a(n) for n = 0..11550
• Index entries for sequences related to primorial base

Crossrefs

Cf. A003415, A003557, A276086, A342001, A346485.

Cf. also A342002, A346471, A347126, A347396.

Programs

PARI

A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A003557(n) = (n/factorback(factorint(n)[, 1]));
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A342001(n) = (A003415(n) / A003557(n));
A346485(n) = sumdiv(n,d,moebius(n/d)*A342001(d));
A347232(n) = A346485(A276086(n));

Formula

a(n) = A346485(A276086(n)).