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.

A349173 Dirichlet convolution of A003415 with A003959, where A003415 is the arithmetic derivative and A003959 is fully multiplicative with a(p) = (p+1).

Original entry on oeis.org

0, 1, 1, 7, 1, 12, 1, 33, 10, 16, 1, 68, 1, 20, 18, 131, 1, 87, 1, 96, 22, 28, 1, 296, 16, 32, 67, 124, 1, 167, 1, 473, 30, 40, 26, 449, 1, 44, 34, 428, 1, 215, 1, 180, 147, 52, 1, 1128, 22, 171, 42, 208, 1, 510, 34, 560, 46, 64, 1, 881, 1, 68, 187, 1611, 38, 311, 1, 264, 54, 295, 1, 1871, 1, 80, 203, 292, 38, 359
Offset: 1

Views

Author

Antti Karttunen, Nov 09 2021

Keywords

Links

Crossrefs

Cf. A003415, A003959, A349129, A349133, A349170, A349171, A349172, A349356.

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]));
A003959(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]++); factorback(f); };
A349173(n) = sumdiv(n,d,A003415(d)*A003959(n/d));

Formula

a(n) = Sum_{d|n} A003415(d) * A003959(n/d).
a(n) = Sum_{d|n} A349133(d) * A349356(n/d). - Antti Karttunen, Nov 16 2021
For all n >= 1, a(n) >= A349133(n).

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

Original entry on oeis.org

1, 3, 5, 7, 9, 15, 13, 15, 19, 27, 21, 35, 25, 39, 45, 31, 33, 57, 37, 63, 65, 63, 45, 75, 61, 75, 65, 91, 57, 135, 61, 63, 105, 99, 117, 133, 73, 111, 125, 135, 81, 195, 85, 147, 171, 135, 93, 155, 127, 183, 165, 175, 105, 195, 189, 195, 185, 171, 117, 315, 121, 183, 247, 127, 225, 315, 133, 231, 225, 351, 141
Offset: 1

Views

Author

Antti Karttunen, Nov 09 2021

Keywords

Comments

Dirichlet convolution of A003958 with the identity function, A000027.
Dirichlet convolution of sigma (A000203) with A003966.

Links

Crossrefs

Cf. A000203, A003958, A003966, A038040, A348980, A349129, A349131 (Möbius transform), A349132, A349133, A349170.

Programs

  • Mathematica
    f[p_, e_] := p^(e + 1) - (p - 1)^(e + 1); 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); };
A349130(n) = sumdiv(n,d,d*A003958(n/d));

Formula

a(n) = Sum_{d|n} d * A003958(n/d).
a(n) = Sum_{d|n} A349131(d).
a(n) = Sum_{d|n} A000203(d) * A003966(n/d).
a(n) = A038040(n) - A348980(n).
For all n >= 1, a(n) <= A349129(n) <= A349170(n).
Multiplicative with a(p^e) = p^(e+1) - (p-1)^(e+1). - Amiram Eldar, Nov 09 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

Views

Author

Antti Karttunen, Nov 08 2021

Keywords

Comments

Dirichlet convolution of A348507 with the identity function, A000027.
Dirichlet convolution of sigma with A348971.

Links

Crossrefs

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

Programs

  • Mathematica
    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 *)
  • PARI
    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));

Formula

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

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

Original entry on oeis.org

1, 4, 6, 14, 10, 24, 14, 46, 30, 40, 22, 84, 26, 56, 60, 146, 34, 120, 38, 140, 84, 88, 46, 276, 80, 104, 138, 196, 58, 240, 62, 454, 132, 136, 140, 420, 74, 152, 156, 460, 82, 336, 86, 308, 300, 184, 94, 876, 154, 320, 204, 364, 106, 552, 220, 644, 228, 232, 118, 840, 122, 248, 420, 1394, 260, 528, 134, 476, 276
Offset: 1

Views

Author

Antti Karttunen, Nov 09 2021

Keywords

Comments

Dirichlet convolution of A003959 with Euler totient function phi, A000010.
Möbius transform of A349170.

Links

Crossrefs

Cf. A000010, A003959, A018804, A349141, A349170 (inverse Möbius transform), A349172, A349131.

Programs

  • Mathematica
    f[p_, e_] := p*(p + 1)^e - (p - 1)*p^e; 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); };
A349171(n) = sumdiv(n,d,eulerphi(d)*A003959(n/d));

Formula

a(n) = Sum_{d|n} A000010(d) * A003959(n/d).
a(n) = Sum_{d|n} A008683(d) * A349170(n/d).
a(n) = Sum_{k=1..n} A003959(gcd(n, k)).
a(n) = A018804(n) + A349141(n).
For all n >= 1, a(n) >= A349131(n).
Multiplicative with a(p^e) = p*(p+1)^e - (p-1)*p^e. - Amiram Eldar, Nov 09 2021

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

Views

Author

Antti Karttunen, Nov 09 2021

Keywords

Comments

Dirichlet convolution of A001615 with A003959.

Links

Crossrefs

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

Programs

  • Mathematica
    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 *)
  • 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)));
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));

Formula

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

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.