A349142 -id:A349142 - cp's OEIS frontend

A348507 a(n) = A003959(n) - n, where A003959 is multiplicative with a(p^e) = (p+1)^e.

0, 1, 1, 5, 1, 6, 1, 19, 7, 8, 1, 24, 1, 10, 9, 65, 1, 30, 1, 34, 11, 14, 1, 84, 11, 16, 37, 44, 1, 42, 1, 211, 15, 20, 13, 108, 1, 22, 17, 122, 1, 54, 1, 64, 51, 26, 1, 276, 15, 58, 21, 74, 1, 138, 17, 160, 23, 32, 1, 156, 1, 34, 65, 665, 19, 78, 1, 94, 27, 74, 1, 360, 1, 40, 69, 104, 19, 90, 1, 406, 175, 44, 1, 204

Offset: 1

Antti Karttunen, Oct 30 2021

nonn

a(p*(n/p)) - (n/p) = (p+1)*a(n/p) holds for all prime divisors p of n, which can be seen by expanding the left hand side as (A003959(p*(n/p)) - (p*(n/p))) - (n/p) = (p+1)*A003959(n/p)-((p+1)*(n/p)) = (p+1)*(A003959(n/p)-(n/p)) = (p+1)*a(n/p). This implies that a(n) >= A003415(n) for all n. (See also comments in A348970). - Antti Karttunen, Nov 06 2021

Antti Karttunen, Table of n, a(n) for n = 1..10000
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Cf. A001065, A003415, A003959, A020639, A032742, A065488, A348029, A348508, A348929 [= gcd(n,a(n))], A348950, A348970.
Cf. A348971 (Möbius transform) and A349139, A349140, A349141, A349142, A349143 (other Dirichlet convolutions).
Cf. also A168065 (the arithmetic mean of this and A322582), A168066.

f[p_, e_] := (p + 1)^e; a[1] = 0; a[n_] := Times @@ f @@@ FactorInteger[n] - n; Array[a, 100] (* Amiram Eldar, Oct 30 2021 *)

A003959(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]++); factorback(f); };
A348507(n) = (A003959(n) - n);

A020639(n) = if(1==n,n,(factor(n)[1, 1]));
A348507(n) = { my(s=0, m=1, spf); while(n>1, spf = A020639(n); n /= spf; s += m*n; m *= (1+spf)); (s); }; \\ (Compare this with similar programs given in A003415 and in A322582) - Antti Karttunen, Nov 06 2021

a(n) = A003959(n) - n.
a(n) = A348508(n) + n.
a(n) = A001065(n) + A348029(n).
From Antti Karttunen, Nov 06 2021: (Start)
a(n) = Sum_{d|n} A348971(d).
a(n) = A003415(n) + A348970(n).
For all n >= 1, A322582(n) <= A003415(n) <= a(n).
For n > 1, a(n) = a(A032742(n))*(1+A020639(n)) + A032742(n). [See the comments above, and compare this with Reinhard Zumkeller's May 09 2011 recursive formula for A003415] (End)
Sum_{k=1..n} a(k) ~ c * n^2 / 2, where c = A065488 - 1. - Amiram Eldar, Jun 01 2025

A348982 a(n) = Sum_{d|n} psi(n/d) * A322582(d), where psi is Dedekind psi (A001615), A322582(n) = n - A003958(n), and A003958 is fully multiplicative with a(p) = (p-1).

Original entry on oeis.org

0, 1, 1, 6, 1, 11, 1, 22, 9, 15, 1, 52, 1, 19, 17, 66, 1, 69, 1, 76, 21, 27, 1, 176, 15, 31, 51, 100, 1, 145, 1, 178, 29, 39, 25, 288, 1, 43, 33, 264, 1, 189, 1, 148, 123, 51, 1, 508, 21, 145, 41, 172, 1, 339, 33, 352, 45, 63, 1, 632, 1, 67, 159, 450, 37, 277, 1, 220, 53, 265, 1, 924, 1, 79, 175, 244, 37, 321

Offset: 1

Antti Karttunen, Nov 08 2021

nonn

Dirichlet convolution of A001615 with A322582.

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

Cf. A001615, A003958, A322582, A327251, A348980, A348981, A348982, A348983, A349132.

Cf. also A347132, A349142.

f1[p_, e_] := (p + 1)*p^(e - 1); psi[1] = 1; psi[n_] := Times @@ f1 @@@ FactorInteger[n]; f2[p_, e_] := (p - 1)^e; s[1] = 1; s[n_] := Times @@ f2 @@@ FactorInteger[n]; a[n_] := DivisorSum[n, (# - s[#])*psi[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 08 2021 *)

A001615(n) = if(1==n,n, my(f=factor(n)); prod(i=1, #f~, f[i, 1]^f[i, 2] + f[i, 1]^(f[i, 2]-1))); \\ After code in A001615
A003958(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]--); factorback(f); };
A322582(n) = (n-A003958(n));
A348982(n) = sumdiv(n,d,A001615(n/d)*A322582(d));

a(n) = Sum_{d|n} A001615(n/d) * A322582(d).
For all n >= 1, a(n) <= A347132(n) <= A349142(n).
a(n) = A327251(n) - A349132(n). - Antti Karttunen, Nov 14 2021

A349140 a(n) = Sum_{d|n} d * A348507(n/d), where A348507(n) = A003959(n) - n, where A003959 is fully multiplicative with a(p) = (p+1).

Original entry on oeis.org

0, 1, 1, 7, 1, 11, 1, 33, 10, 15, 1, 61, 1, 19, 17, 131, 1, 77, 1, 89, 21, 27, 1, 263, 16, 31, 67, 117, 1, 145, 1, 473, 29, 39, 25, 379, 1, 43, 33, 395, 1, 189, 1, 173, 137, 51, 1, 997, 22, 155, 41, 201, 1, 443, 33, 527, 45, 63, 1, 743, 1, 67, 177, 1611, 37, 277, 1, 257, 53, 265, 1, 1541, 1, 79, 187, 285, 37, 321

Offset: 1

Antti Karttunen, Nov 08 2021

nonn

Dirichlet convolution of A348507 with the identity function, A000027.

Dirichlet convolution of sigma with A348971.

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

Cf. A000027, A000203, A003959, A038040, A348507, A348971, A349141 (Möbius transform), A349142, A349143, A349170.

Cf. also A347130, A348980.

f[p_, e_] := (p + 1)^e; s[1] = 0; s[n_] := Times @@ f @@@ FactorInteger[n] - n; a[n_] := DivisorSum[n, #*s[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 08 2021 *)

A003959(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]++); factorback(f); };
A348507(n) = (A003959(n) - n);
A349140(n) = sumdiv(n,d,d*A348507(n/d));

a(n) = Sum_{d|n} d * A348507(n/d).
a(n) = Sum_{d|n} A000203(d) * A348971(n/d).
a(n) = Sum_{d|n} A349141(d).
For all n >= 1, a(n) >= A347130(n) >= A348980(n).
a(n) = A349170(n) - A038040(n). - Antti Karttunen, Nov 15 2021

A349141 a(n) = Sum_{d|n} phi(n/d) * A348507(d), where A348507(n) = A003959(n) - n, and A003959 is fully multiplicative with a(p) = (p+1).

Original entry on oeis.org

0, 1, 1, 6, 1, 9, 1, 26, 9, 13, 1, 44, 1, 17, 15, 98, 1, 57, 1, 68, 19, 25, 1, 176, 15, 29, 57, 92, 1, 105, 1, 342, 27, 37, 23, 252, 1, 41, 31, 280, 1, 141, 1, 140, 111, 49, 1, 636, 21, 125, 39, 164, 1, 309, 31, 384, 43, 61, 1, 480, 1, 65, 147, 1138, 35, 213, 1, 212, 51, 209, 1, 960, 1, 77, 155, 236, 35, 249, 1, 1028

Offset: 1

Antti Karttunen, Nov 08 2021

nonn

Dirichlet convolution of Euler phi (A000010) with A348507.

Möbius transform of A349140.

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

Cf. A000010, A003959, A008683, A018804, A348507, A349140 (inverse Möbius transform), A349142, A349143, A349171.

Cf. also A347131, A348981.

f[p_, e_] := (p + 1)^e; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; a[n_] := DivisorSum[n, (s[#] - #) * EulerPhi[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 08 2021 *)

A003959(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]++); factorback(f); };
A348507(n) = (A003959(n) - n);
A349141(n) = sumdiv(n,d,eulerphi(d)*A348507(n/d));

a(n) = Sum_{d|n} A000010(n/d) * A348507(d).
a(n) = Sum_{d|n} A008683(n/d) * A349140(d).
a(n) = Sum_{k=1..n} A348507(gcd(n,k)).
For all n >= 1, a(n) >= A347131(n) >= A348981(n).
a(n) = A349171(n) - A018804(n). - Antti Karttunen, Nov 14 2021

A349143 a(n) = Sum_{d|n} A038040(d) * A348507(n/d), where A038040(n) = n*tau(n), A348507(n) = A003959(n) - n, and A003959 is fully multiplicative with a(p) = (p+1).

Original entry on oeis.org

0, 1, 1, 9, 1, 16, 1, 51, 13, 22, 1, 114, 1, 28, 25, 233, 1, 145, 1, 168, 31, 40, 1, 590, 21, 46, 106, 222, 1, 310, 1, 939, 43, 58, 37, 915, 1, 64, 49, 896, 1, 406, 1, 330, 262, 76, 1, 2570, 29, 297, 61, 384, 1, 1012, 49, 1202, 67, 94, 1, 2040, 1, 100, 340, 3489, 55, 598, 1, 492, 79, 574, 1, 4457, 1, 118, 360, 546, 55

Offset: 1

Antti Karttunen, Nov 08 2021

nonn

Dirichlet convolution of A348507 with A038040, which is the Dirichlet convolution of the identity function (A000027) with itself.
Dirichlet convolution of the identity function (A000027) with A349140.
Dirichlet convolution of sigma (A000203) with A349141.
Dirichlet convolution of A060640 with A348971.

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

Cf. A000005, A000027, A000203, A003959, A038040, A060640, A348507, A348971, A349140, A349141, A349142.

Cf. also A349123, A348983.

f[p_, e_] := (p + 1)^e; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; a[n_] := DivisorSum[n, #*DivisorSigma[0, #]*(s[n/#] - n/#) &]; Array[a, 100] (* Amiram Eldar, Nov 08 2021 *)

A038040(n) = (n*numdiv(n));
A003959(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]++); factorback(f); };
A348507(n) = (A003959(n) - n);
A349143(n) = sumdiv(n,d,A038040(d)*A348507(n/d));

a(n) = Sum_{d|n} A038040(n/d) * A348507(d).
a(n) = Sum_{d|n} d * A349140(n/d).
a(n) = Sum_{d|n} A000203(d) * A349141(n/d).
a(n) = Sum_{d|n} A060640(d) * A348971(n/d).
For all n >= 1, a(n) >= A349123(n) >= A348983(n).

A349172 a(n) = Sum_{d|n} psi(d) * A003959(n/d), where A003959 is fully multiplicative with a(p) = (p+1), and psi is Dedekind psi function, A001615.

Original entry on oeis.org

1, 6, 8, 24, 12, 48, 16, 84, 44, 72, 24, 192, 28, 96, 96, 276, 36, 264, 40, 288, 128, 144, 48, 672, 102, 168, 212, 384, 60, 576, 64, 876, 192, 216, 192, 1056, 76, 240, 224, 1008, 84, 768, 88, 576, 528, 288, 96, 2208, 184, 612, 288, 672, 108, 1272, 288, 1344, 320, 360, 120, 2304, 124, 384, 704, 2724, 336, 1152, 136

Offset: 1

Antti Karttunen, Nov 09 2021

Dirichlet convolution of A001615 with A003959.

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

Cf. A001615, A003959, A327251, A349142, A349170, A349171, A349172, A349173.

f[p_, e_] := (p + 2)*(p + 1)^e - (p + 1)*p^e; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Nov 09 2021 *)

A001615(n) = if(1==n,n, my(f=factor(n)); prod(i=1, #f~, f[i, 1]^f[i, 2] + f[i, 1]^(f[i, 2]-1)));
A003959(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]++); factorback(f); };
A349172(n) = sumdiv(n,d,A001615(d)*A003959(n/d));

a(n) = Sum_{d|n} A001615(d) * A003959(n/d).
a(n) = A327251(n) + A349142(n).
For all n >= 1, a(n) >= A349132(n).
Multiplicative with a(p^e) = (p+2)*(p+1)^e - (p+1)*p^e. - Amiram Eldar, Nov 09 2021

cp's OEIS Frontend

A348507 a(n) = A003959(n) - n, where A003959 is multiplicative with a(p^e) = (p+1)^e.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A348982 a(n) = Sum_{d|n} psi(n/d) * A322582(d), where psi is Dedekind psi (A001615), A322582(n) = n - A003958(n), and A003958 is fully multiplicative with a(p) = (p-1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A349140 a(n) = Sum_{d|n} d * A348507(n/d), where A348507(n) = A003959(n) - n, where A003959 is fully multiplicative with a(p) = (p+1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A349141 a(n) = Sum_{d|n} phi(n/d) * A348507(d), where A348507(n) = A003959(n) - n, and A003959 is fully multiplicative with a(p) = (p+1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A349143 a(n) = Sum_{d|n} A038040(d) * A348507(n/d), where A038040(n) = n*tau(n), A348507(n) = A003959(n) - n, and A003959 is fully multiplicative with a(p) = (p+1).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A349172 a(n) = Sum_{d|n} psi(d) * A003959(n/d), where A003959 is fully multiplicative with a(p) = (p+1), and psi is Dedekind psi function, A001615.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula