A328958 a(n) = d(n) - (omega(n) * bigomega(n)), where d (number of divisors) = A000005, omega = A001221, bigomega = A001222.

1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, -1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, -1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, -1, 1, 0, 0, -1, 1, 2, 1, 0, 0, 0, 0, -1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, -1, 1, 0, -1

Offset

1,72

Comments

a(n) = sigma_0(n) - omega(n) * nu(n), where sigma_0 = A000005, nu = A001221, omega = A001222. - The original name of the sequence.

Links

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

Index entries for sequences computed from exponents in factorization of n.

Formula

a(n) = A000005(n) - A001222(n) * A001221(n) = A00005(n) - A113901(n).

Example

a(144) = sigma_0(144) - omega(144) * nu(144) = 15 - 6 * 2 = 3.

Mathematica

Table[DivisorSigma[0, n]-PrimeOmega[n]*PrimeNu[n], {n, 100}]

Prog

(PARI) A328958(n) = (numdiv(n)-(omega(n)*bigomega(n))); \\ Antti Karttunen, Jan 27 2025

Crossrefs

Positions of first appearances are A328962.

Zeros are A328956.

Nonzeros are A328957.

omega(n) * nu(n) is A113901(n).

(omega(n) - 1) * nu(n) is A307409(n).

sigma_0(n) - 2 - (omega(n) - 1) * nu(n) is A328959(n).

Cf. A000005, A001221, A001222, A112798, A124010, A323023, A328960, A328961, A328963, A328964.

Sequence in context: A068933 A015472 A049816 * A143542 A072612 A116378

Adjacent sequences: A328955 A328956 A328957 * A328959 A328960 A328961

Keyword

sign,changed

Author

Gus Wiseman, Nov 02 2019

Extensions

More terms added and the function names in the definition replaced with standard OEIS ones - Antti Karttunen, Jan 27 2025

Status

approved