A329374 a(1) = 0; for n > 1, a(n) = A000265(A329372(n)), where A329372 is Dirichlet convolution of the identity function with A156552.

0, 1, 1, 5, 1, 3, 1, 17, 3, 11, 1, 11, 1, 5, 1, 49, 1, 61, 1, 39, 7, 19, 1, 33, 1, 71, 25, 17, 1, 19, 1, 129, 13, 137, 11, 209, 1, 133, 47, 115, 1, 1, 1, 63, 37, 131, 1, 89, 5, 159, 89, 227, 1, 15, 5, 49, 85, 1039, 1, 63, 1, 129, 31, 321, 35, 29, 1, 429, 83, 25, 1, 605, 1, 4115, 111, 409, 15, 101, 1, 307, 45, 8213, 1, 13, 65, 8203, 655, 179, 1, 335, 25

Offset

1,4

Links

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

Antti Karttunen, Data supplement: n, a(n) computed for n = 1..32768

Index entries for sequences computed from indices in prime factorization

Formula

a(1) = 0; and for n > 1, a(n) = A000265(A329372(n)).

Prog

(PARI)
A000265(n) = (n/2^valuation(n, 2));
A061395(n) = if(1==n, 0, primepi(vecmax(factor(n)[, 1])));
A297167(n) = if(1==n, 0, (A061395(n) + (bigomega(n)-omega(n)) - 1));
A297112(n) = if(1==n, 0, 2^A297167(n));
A329372(n) = sumdiv(n, d, sigma(n/d)*A297112(d));
A329374(n) = if(1==n, 0, A000265(A329372(n)));

Crossrefs

Cf. A000265, A061395, A156552, A297112, A297167, A329372, A329373.

Sequence in context: A347964 A348498 A206076 * A115638 A342375 A055515

Adjacent sequences: A329371 A329372 A329373 * A329375 A329376 A329377

Keyword

nonn

Author

Antti Karttunen, Nov 12 2019

Status

approved