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,4

Links

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

Index entries for sequences related to primorial base

Formula

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

Prog

(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));

Crossrefs

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

Cf. also A342002, A346471, A347126, A347396.

Sequence in context: A350470 A277604 A112475 * A307855 A361277 A300853

Adjacent sequences: A347229 A347230 A347231 * A347233 A347234 A347235

Keyword

nonn,base

Author

Antti Karttunen, Aug 26 2021

Status

approved