A347117 Möbius transform of A329603.

2, 3, 6, 10, 16, 0, 48, 30, 12, 104, 96, 12, 240, 192, 8, 90, 336, 54, 576, 240, 16, 504, 720, 36, 24, 600, 40, 480, 1056, -122, 1680, 270, 96, 1104, 96, 132, 1920, 1224, 144, 720, 2736, 1064, 3360, 1200, 0, 1920, 3696, 108, 60, 126, 624, 1680, 4416, 422, 336, 1440, 768, 3144, 5616, -228, 6960, 3120, 416, 810, 624

Offset

1,1

Links

Antti Karttunen, Table of n, a(n) for n = 1..10000

Index entries for sequences computed from indices in prime factorization

Formula

a(n) = Sum_{d|n} A008683(n/d) * A329603(d).

Prog

(PARI)
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); (t); };
A156552(n) = { my(f = factor(n), p, p2 = 1, res = 0); for(i = 1, #f~, p = 1 << (primepi(f[i, 1]) - 1); res += (p * p2 * (2^(f[i, 2]) - 1)); p2 <<= f[i, 2]); res };
A329603(n) = A005940(2+(3*A156552(n)));
A347117(n) = sumdiv(n, d, moebius(n/d)*A329603(d));

Crossrefs

Cf. A008683, A156552, A329603.

Cf. also A332463, A347115, A347118.

Sequence in context: A375972 A051891 A108062 * A269403 A075623 A024801

Adjacent sequences: A347114 A347115 A347116 * A347118 A347119 A347120

Keyword

sign

Author

Antti Karttunen, Aug 21 2021

Status

approved