cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-6 of 6 results.

A349133 Dirichlet convolution of A003415 with A003958, where A003415 is the arithmetic derivative and A003958 is fully multiplicative with a(p) = (p-1).

Original entry on oeis.org

0, 1, 1, 5, 1, 8, 1, 17, 8, 12, 1, 32, 1, 16, 14, 49, 1, 43, 1, 52, 18, 24, 1, 100, 14, 28, 43, 72, 1, 87, 1, 129, 26, 36, 22, 151, 1, 40, 30, 168, 1, 119, 1, 112, 91, 48, 1, 276, 20, 103, 38, 132, 1, 194, 30, 236, 42, 60, 1, 323, 1, 64, 123, 321, 34, 183, 1, 172, 50, 183, 1, 443, 1, 76, 131, 192, 34, 215, 1, 472
Offset: 1

Views

Author

Antti Karttunen, Nov 09 2021

Keywords

Links

Crossrefs

Cf. A003415, A003958, A349129, A349130, A349131, A349132, A349173.

Programs

  • Mathematica
    f1[p_, e_] := e/p; f2[p_, e_] := (p - 1)^e; a1[1] = 0; a1[n_] := n*Plus @@ (f1 @@@ FactorInteger[n]); a2[1] = 1; a2[n_] := Times @@ f2 @@@ FactorInteger[n]; a[n_] := DivisorSum[n, a1[#] * a2[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 09 2021 *)
  • PARI
    A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A003958(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]--); factorback(f); };
A349133(n) = sumdiv(n,d,A003415(d)*A003958(n/d));

Formula

a(n) = Sum_{d|n} A003415(d) * A003958(n/d).
For all n >= 1, a(n) <= A349173(n).

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

Original entry on oeis.org

0, 1, 1, 5, 1, 9, 1, 17, 8, 13, 1, 37, 1, 17, 15, 49, 1, 51, 1, 57, 19, 25, 1, 117, 14, 29, 43, 77, 1, 105, 1, 129, 27, 37, 23, 191, 1, 41, 31, 185, 1, 141, 1, 117, 99, 49, 1, 325, 20, 117, 39, 137, 1, 237, 31, 253, 43, 61, 1, 405, 1, 65, 131, 321, 35, 213, 1, 177, 51, 209, 1, 579, 1, 77, 145, 197, 35, 249, 1, 521
Offset: 1

Views

Author

Antti Karttunen, Nov 08 2021

Keywords

Comments

Dirichlet convolution of A322582 with the identity function, A000027.

Links

Crossrefs

Cf. A000027, A003958, A038040, A322582, A348981 (Möbius transform), A348982, A348983, A349130.
Cf. also A347130, A349140.

Programs

  • Mathematica
    f[p_, e_] := (p - 1)^e; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; a[n_] := DivisorSum[n, #*(n/# - s[n/#]) &]; Array[a, 100] (* Amiram Eldar, Nov 08 2021 *)
  • PARI
    A003958(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]--); factorback(f); };
A322582(n) = (n-A003958(n));
A348980(n) = sumdiv(n,d,d*A322582(n/d));

Formula

a(n) = Sum_{d|n} d * A322582(n/d).
For all n >= 1, a(n) <= A347130(n) <= A349140(n).
a(n) = A038040(n) - A349130(n). - Antti Karttunen, Nov 14 2021

A349131 a(n) = Sum_{d|n} phi(d) * A003958(n/d), where A003958 is fully multiplicative with a(p) = (p-1), and phi is Euler totient function.

Original entry on oeis.org

1, 2, 4, 4, 8, 8, 12, 8, 14, 16, 20, 16, 24, 24, 32, 16, 32, 28, 36, 32, 48, 40, 44, 32, 52, 48, 46, 48, 56, 64, 60, 32, 80, 64, 96, 56, 72, 72, 96, 64, 80, 96, 84, 80, 112, 88, 92, 64, 114, 104, 128, 96, 104, 92, 160, 96, 144, 112, 116, 128, 120, 120, 168, 64, 192, 160, 132, 128, 176, 192, 140, 112, 144, 144, 208
Offset: 1

Views

Author

Antti Karttunen, Nov 09 2021

Keywords

Comments

Dirichlet convolution of A003958 with Euler totient function phi, A000010.
Möbius transform of A349130.

Links

Crossrefs

Cf. A000010, A003958, A018804, A348981, A349130 (inverse Möbius transform), A349132, A349171.

Programs

  • Mathematica
    f[p_, e_] := (p - 1)*p^e - (p - 2)*(p - 1)^e; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Nov 09 2021 *)
  • PARI
    A003958(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]--); factorback(f); };
A349131(n) = sumdiv(n,d,eulerphi(d)*A003958(n/d));

Formula

a(n) = Sum_{d|n} A000010(d) * A003958(n/d).
a(n) = Sum_{d|n} A008683(d) * A349130(n/d).
a(n) = Sum_{k=1..n} A003958(gcd(n, k)).
a(n) = A018804(n) - A348981(n).
For all n >= 1, a(n) <= A349171(n).
Multiplicative with a(p^e) = (p-1)*p^e - (p-2)*(p-1)^e. - Amiram Eldar, Nov 09 2021
Dirichlet g.f.: (zeta(s-1)/zeta(s)) / Product_{p prime} (1 - 1/p^(s-1) + 1/p^s). - Amiram Eldar, Dec 24 2023

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

Original entry on oeis.org

1, 4, 6, 10, 10, 24, 14, 22, 24, 40, 22, 60, 26, 56, 60, 46, 34, 96, 38, 100, 84, 88, 46, 132, 70, 104, 84, 140, 58, 240, 62, 94, 132, 136, 140, 240, 74, 152, 156, 220, 82, 336, 86, 220, 240, 184, 94, 276, 140, 280, 204, 260, 106, 336, 220, 308, 228, 232, 118, 600, 122, 248, 336, 190, 260, 528, 134, 340, 276, 560
Offset: 1

Views

Author

Antti Karttunen, Nov 09 2021

Keywords

Comments

Dirichlet convolution of A003958 with Dedekind psi function, A001615.

Links

Crossrefs

Cf. A001615, A003958, A327251, A348982, A349130, A349131, A349133, A349172.

Programs

  • Mathematica
    f[p_, e_] := (p + 1)*p^e - p*(p - 1)^e; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Nov 09 2021 *)
  • PARI
    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)));
A003958(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]--); factorback(f); };
A349132(n) = sumdiv(n,d,A001615(d)*A003958(n/d));

Formula

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

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

Original entry on oeis.org

1, 5, 7, 19, 11, 35, 15, 65, 37, 55, 23, 133, 27, 75, 77, 211, 35, 185, 39, 209, 105, 115, 47, 455, 91, 135, 175, 285, 59, 385, 63, 665, 161, 175, 165, 703, 75, 195, 189, 715, 83, 525, 87, 437, 407, 235, 95, 1477, 169, 455, 245, 513, 107, 875, 253, 975, 273, 295, 119, 1463, 123, 315, 555, 2059, 297, 805, 135, 665
Offset: 1

Views

Author

Antti Karttunen, Nov 09 2021

Keywords

Comments

Dirichlet convolution of A003959 with the identity function, A000027.
Dirichlet convolution of sigma (A000203) with A003968.

Links

Crossrefs

Cf. A000027, A000203, A003959, A003968, A038040, A349129, A349130, A349140, A349171 (Möbius transform), A349172, A349173.

Programs

  • Mathematica
    f[p_, e_] := (p + 1)^(e + 1) - p^(e + 1); a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Nov 09 2021 *)
  • PARI
    A003959(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]++); factorback(f); };
A349170(n) = sumdiv(n,d,d*A003959(n/d));

Formula

a(n) = Sum_{d|n} d * A003959(n/d).
a(n) = Sum_{d|n} A349171(d).
a(n) = Sum_{d|n} A000203(d) * A003968(n/d).
a(n) = A038040(n) + A349140(n).
For all n >= 1, a(n) >= A349129(n) >= A349130(n).
Multiplicative with a(p^e) = (p+1)^(e+1) - p^(e+1). - Amiram Eldar, Nov 09 2021

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

Original entry on oeis.org

1, 4, 6, 13, 10, 24, 14, 40, 28, 40, 22, 78, 26, 56, 60, 121, 34, 112, 38, 130, 84, 88, 46, 240, 76, 104, 120, 182, 58, 240, 62, 364, 132, 136, 140, 364, 74, 152, 156, 400, 82, 336, 86, 286, 280, 184, 94, 726, 148, 304, 204, 338, 106, 480, 220, 560, 228, 232, 118, 780, 122, 248, 392, 1093, 260, 528, 134, 442, 276
Offset: 1

Views

Author

Antti Karttunen, Nov 09 2021

Keywords

Comments

Dirichlet convolution of A003958 with A003959.

Links

Crossrefs

Cf. A003958, A003959, A168066, A349139.
Cf. also A349130, A349131, A349132, A349133 and A349170, A349171, A349172, A349173.

Programs

  • Mathematica
    f[p_, e_] := ((p + 1)^(e + 1) - (p - 1)^(e + 1))/2; a[1] = 1; a[n_] := Times @@ f @@@ FactorInteger[n]; Array[a, 100] (* Amiram Eldar, Nov 09 2021 *)
  • PARI
    A003958(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]--); factorback(f); };
A003959(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]++); factorback(f); };
A349129(n) = sumdiv(n,d,A003958(d)*A003959(n/d));

Formula

Multiplicative with a(p^e) = ((p+1)^(e+1) - (p-1)^(e+1))/2. - Amiram Eldar, Nov 09 2021
For all n >= 1, A349130(n) <= a(n) <= A349170(n).
Showing 1-6 of 6 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.