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-10 of 11 results. Next

A349446 a(n) = A349444(n) + A349445(n).

Original entry on oeis.org

2, 0, 0, 1, 0, -2, 0, 1, 1, -4, 0, -1, 0, -6, 4, 1, 0, -5, 0, -2, 6, -10, 0, -1, 4, -12, 5, -3, 0, -4, 0, 1, 10, -16, 12, -2, 0, -18, 12, -2, 0, -6, 0, -5, 14, -22, 0, -1, 9, -16, 16, -6, 0, -13, 20, -3, 18, -28, 0, 0, 0, -30, 21, 1, 24, -10, 0, -8, 22, -12, 0, -2, 0, -36, 24, -9, 30, -12, 0, -2, 19, -40, 0, 0, 32
Offset: 1

Views

Author

Antti Karttunen, Nov 18 2021

Keywords

Links

Crossrefs

Cf. A349444, A349445.
Cf. also A349433.

Programs

  • Mathematica
    s[n_] := MoebiusMu[n] - If[OddQ[n], 0, MoebiusMu[n/2]]; k[n_] := (n / 2^IntegerExponent[n, 2] + 1)/2; k[n_] := (n / 2^IntegerExponent[n, 2] + 1)/2; kinv[1] = 1; kinv[n_] := kinv[n] = -DivisorSum[n, kinv[#]*k[n/#] &, # < n &]; a[n_] := DivisorSum[n,  s[#]*k[n/#] + IntegerExponent[2*#, 2]*kinv[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 19 2021 *)
  • PARI
    A349446(n) = (A349444(n)+A349445(n)); \\ Needs also code from A349444 and A349445.

Formula

a(1) = 2, and for n > 1, a(n) = -Sum_{d|n, 1A349444(d) * A349445(n/d). [As the sequences are Dirichlet inverses of each other]

A349371 Inverse Möbius transform of Kimberling's paraphrases (A003602).

Original entry on oeis.org

1, 2, 3, 3, 4, 6, 5, 4, 8, 8, 7, 9, 8, 10, 14, 5, 10, 16, 11, 12, 18, 14, 13, 12, 17, 16, 22, 15, 16, 28, 17, 6, 26, 20, 26, 24, 20, 22, 30, 16, 22, 36, 23, 21, 42, 26, 25, 15, 30, 34, 38, 24, 28, 44, 38, 20, 42, 32, 31, 42, 32, 34, 55, 7, 44, 52, 35, 30, 50, 52, 37, 32, 38, 40, 65, 33, 50, 60, 41, 20, 63, 44, 43
Offset: 1

Views

Author

Antti Karttunen, Nov 15 2021

Keywords

Comments

Dirichlet convolution of sigma (A000203) with A349431, or equally, A264740 with A349447. - Antti Karttunen, Nov 21 2021

Links

Crossrefs

Cf. A000203, A264740.
Cf. also A347954, A347955, A347956, A349136, A349370, A349372, A349373, A349374, A349375, A349390, A349431, A349444, A349447 for Dirichlet convolutions of other sequences with A003602.
Cf. also A349393.

Programs

  • Mathematica
    k[n_] := (n / 2^IntegerExponent[n, 2] + 1)/2; a[n_] := DivisorSum[n, k[#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)
  • PARI
    A003602(n) = (1+(n>>valuation(n,2)))/2;
A349371(n) = sumdiv(n,d,A003602(d));

Formula

a(n) = Sum_{d|n} A003602(d).
a(n) = Sum_{d|n} A000203(n/d)*A349431(d) = Sum_{d|n} A264740(n/d)*A349447(d). - Antti Karttunen, Nov 21 2021

A349431 Dirichlet convolution of A003602 (Kimberling's paraphrases) with A055615 (Dirichlet inverse of n).

Original entry on oeis.org

1, -1, -1, -1, -2, 1, -3, -1, -1, 2, -5, 1, -6, 3, 4, -1, -8, 1, -9, 2, 6, 5, -11, 1, -2, 6, -1, 3, -14, -4, -15, -1, 10, 8, 12, 1, -18, 9, 12, 2, -20, -6, -21, 5, 4, 11, -23, 1, -3, 2, 16, 6, -26, 1, 20, 3, 18, 14, -29, -4, -30, 15, 6, -1, 24, -10, -33, 8, 22, -12, -35, 1, -36, 18, 4, 9, 30, -12, -39, 2, -1, 20
Offset: 1

Views

Author

Antti Karttunen, Nov 17 2021

Keywords

Comments

Dirichlet convolution of this sequence with A000010 gives A349136, which also proves the formula involving A023900.
Convolution with A000203 gives A349371.

Links

Crossrefs

Sequence A297381 negated.
Cf. A003602, A023900, A055615, A297381, A349432 (Dirichlet inverse), A349433 (sum with it).
Cf. also A000010, A000203, A349136, A349371, and also A349444, A349447.

Programs

  • Mathematica
    k[n_] := (n / 2^IntegerExponent[n, 2] + 1)/2; a[n_] := DivisorSum[n, # * MoebiusMu [#] * k[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 18 2021 *)
  • PARI
    A003602(n) = (1+(n>>valuation(n,2)))/2;
A055615(n) = (n*moebius(n));
A349431(n) = sumdiv(n,d,A003602(n/d)*A055615(d));
  • PARI
    A023900(n) = factorback(apply(p -> 1-p, factor(n)[, 1]));
A349431(n) = if(!bitand(n,n-1),A023900(n),A023900(n)/2);

Formula

a(n) = Sum_{d|n} A003602(n/d) * A055615(d).
a(n) = A023900(n) when n is a power of 2, and a(n) = A023900(n)/2 for all other numbers.
a(n) = -A297381(n).

A349390 Dirichlet convolution of A126760 with Kimberling's paraphrases, A003602.

Original entry on oeis.org

1, 2, 3, 3, 5, 6, 7, 4, 8, 10, 10, 9, 12, 14, 17, 5, 15, 16, 17, 15, 24, 20, 20, 12, 28, 24, 22, 21, 25, 34, 27, 6, 35, 30, 47, 24, 32, 34, 42, 20, 35, 48, 37, 30, 50, 40, 40, 15, 54, 56, 53, 36, 45, 44, 71, 28, 60, 50, 50, 51, 52, 54, 71, 7, 84, 70, 57, 45, 71, 94, 60, 32, 62, 64, 100, 51, 99, 84, 67, 25, 63, 70, 70
Offset: 1

Views

Author

Antti Karttunen, Nov 15 2021

Keywords

Links

Crossrefs

Cf. A003602, A126760.
Cf. A347233, A347234, A349391, A349392, A349393, A349395, A349431, A349444, A349447 for other Dirichlet convolutions of A126760. And also A349370.

Programs

  • Mathematica
    f[n_] := 2 * Floor[(m = n/2^IntegerExponent[n, 2]/3^IntegerExponent[n, 3])/6] + Mod[m, 3]; k[n_] := (n/2^IntegerExponent[n, 2] + 1)/2; a[n_] := DivisorSum[n, f[#] * k[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)
  • PARI
    A003602(n) = (1+(n>>valuation(n,2)))/2;
A126760(n) = {n&&n\=3^valuation(n, 3)<A126760
A349390(n) = sumdiv(n,d,A126760(n/d)*A003602(d));

Formula

a(n) = Sum_{d|n} A126760(n/d) * A003602(d).

A349447 Dirichlet convolution of A003602 (Kimberling's paraphrases) with A326937 (Dirichlet inverse of A000265).

Original entry on oeis.org

1, 0, -1, 0, -2, 0, -3, 0, -1, 0, -5, 0, -6, 0, 4, 0, -8, 0, -9, 0, 6, 0, -11, 0, -2, 0, -1, 0, -14, 0, -15, 0, 10, 0, 12, 0, -18, 0, 12, 0, -20, 0, -21, 0, 4, 0, -23, 0, -3, 0, 16, 0, -26, 0, 20, 0, 18, 0, -29, 0, -30, 0, 6, 0, 24, 0, -33, 0, 22, 0, -35, 0, -36, 0, 4, 0, 30, 0, -39, 0, -1, 0, -41, 0, 32, 0, 28
Offset: 1

Views

Author

Antti Karttunen, Nov 19 2021

Keywords

Comments

Dirichlet convolution of this sequence with A264740 is A349371.

Links

Crossrefs

Cf. A000265, A003602, A326937, A349448 (Dirichlet inverse).
Cf. also A264740, A349371, A349431, A349444.

Programs

  • Mathematica
    k[n_] := (n/2^IntegerExponent[n, 2] + 1)/2; a[n_] := DivisorSum[n, MoebiusMu[#] * # / 2^IntegerExponent[#, 2] * k[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 19 2021 *)
  • PARI
    A003602(n) = (1+(n>>valuation(n,2)))/2;
A006519(n) = (1<A055615(n) = (n*moebius(n));
A326937(n) = (A055615(n)/A006519(n));
A349447(n) = sumdiv(n,d,A003602(d)*A326937(n/d));

Formula

a(n) = Sum_{d|n} A003602(d) * A326937(n/d).

A349370 Dirichlet convolution of Kimberling's paraphrases (A003602) with itself.

Original entry on oeis.org

1, 2, 4, 3, 6, 8, 8, 4, 14, 12, 12, 12, 14, 16, 28, 5, 18, 28, 20, 18, 38, 24, 24, 16, 35, 28, 48, 24, 30, 56, 32, 6, 58, 36, 60, 42, 38, 40, 68, 24, 42, 76, 44, 36, 108, 48, 48, 20, 66, 70, 88, 42, 54, 96, 92, 32, 98, 60, 60, 84, 62, 64, 148, 7, 108, 116, 68, 54, 118, 120, 72, 56, 74, 76, 176, 60, 126, 136, 80, 30
Offset: 1

Views

Author

Antti Karttunen, Nov 15 2021

Keywords

Links

Crossrefs

Cf. A347954, A347955, A347956, A349136, A349371, A349372, A349373, A349374, A349375, A349390, A349431, A349444, A349447 for Dirichlet convolutions of other sequences with A003602.

Programs

  • Mathematica
    k[n_] := (n / 2^IntegerExponent[n, 2] + 1)/2; a[n_] := DivisorSum[n, k[#] * k[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)
  • PARI
    A003602(n) = (1+(n>>valuation(n,2)))/2;
A349370(n) = sumdiv(n,d,A003602(n/d)*A003602(d));

Formula

a(n) = Sum_{d|n} A003602(n/d) * A003602(d).

A349372 Dirichlet convolution of Kimberling's paraphrases (A003602) with tau (number of divisors, A000005).

Original entry on oeis.org

1, 3, 4, 6, 5, 12, 6, 10, 12, 15, 8, 24, 9, 18, 22, 15, 11, 36, 12, 30, 27, 24, 14, 40, 22, 27, 34, 36, 17, 66, 18, 21, 37, 33, 36, 72, 21, 36, 42, 50, 23, 81, 24, 48, 72, 42, 26, 60, 36, 66, 52, 54, 29, 102, 50, 60, 57, 51, 32, 132, 33, 54, 90, 28, 57, 111, 36, 66, 67, 108, 38, 120, 39, 63, 104, 72, 63, 126, 42, 75
Offset: 1

Views

Author

Antti Karttunen, Nov 15 2021

Keywords

Links

Crossrefs

Cf. A000005, A003602.
Cf. A347954, A347955, A347956, A349136, A349370, A349371, A349373, A349374, A349375, A349390, A349431, A349444, A349447 for Dirichlet convolutions of other sequences with A003602.
Cf. also A349392.

Programs

  • Mathematica
    k[n_] := (n / 2^IntegerExponent[n, 2] + 1)/2; a[n_] := DivisorSum[n, k[#] * DivisorSigma[0, n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)
  • PARI
    A003602(n) = (1+(n>>valuation(n,2)))/2;
A349372(n) = sumdiv(n,d,A003602(n/d)*numdiv(d));

Formula

a(n) = Sum_{d|n} A003602(n/d) * A000005(d).

A349375 Dirichlet convolution of Kimberling's paraphrases (A003602) with Liouville's lambda.

Original entry on oeis.org

1, 0, 1, 1, 2, 0, 3, 0, 4, 0, 5, 1, 6, 0, 4, 1, 8, 0, 9, 2, 6, 0, 11, 0, 11, 0, 10, 3, 14, 0, 15, 0, 10, 0, 12, 4, 18, 0, 12, 0, 20, 0, 21, 5, 14, 0, 23, 1, 22, 0, 16, 6, 26, 0, 20, 0, 18, 0, 29, 4, 30, 0, 21, 1, 24, 0, 33, 8, 22, 0, 35, 0, 36, 0, 21, 9, 30, 0, 39, 2, 31, 0, 41, 6, 32, 0, 28, 0, 44, 0, 36, 11, 30, 0, 36
Offset: 1

Views

Author

Antti Karttunen, Nov 15 2021

Keywords

Links

Crossrefs

Cf. A003602, A008836.
Cf. A347954, A347955, A347956, A349136, A349370, A349371, A349372, A349373, A349374, A349390, A349431, A349444, A349447 for Dirichlet convolutions of other sequences with A003602.
Cf. also A349395.

Programs

  • Mathematica
    k[n_] := (n / 2^IntegerExponent[n, 2] + 1)/2; a[n_] := DivisorSum[n, k[#] * LiouvilleLambda[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)
  • PARI
    A003602(n) = (1+(n>>valuation(n,2)))/2;
A008836(n) = ((-1)^bigomega(n));
A349375(n) = sumdiv(n,d,A003602(n/d)*A008836(d));

Formula

a(n) = Sum_{d|n} A003602(n/d) * A008836(d).

A349374 Dirichlet convolution of Kimberling's paraphrases (A003602) with squarefree part of n (A007913).

Original entry on oeis.org

1, 3, 5, 4, 8, 15, 11, 6, 12, 24, 17, 20, 20, 33, 42, 7, 26, 36, 29, 32, 58, 51, 35, 30, 29, 60, 34, 44, 44, 126, 47, 9, 90, 78, 94, 48, 56, 87, 106, 48, 62, 174, 65, 68, 110, 105, 71, 35, 54, 87, 138, 80, 80, 102, 146, 66, 154, 132, 89, 168, 92, 141, 153, 10, 172, 270, 101, 104, 186, 282, 107, 72, 110, 168, 167, 116
Offset: 1

Views

Author

Antti Karttunen, Nov 15 2021

Keywords

Links

Crossrefs

Cf. A003602, A007913.
Cf. A347954, A347955, A347956, A349136, A349370, A349371, A349372, A349374, A349375, A349390, A349431, A349444, A349447 for Dirichlet convolutions of other sequences with A003602.

Programs

  • Mathematica
    f[p_, e_] := p^Mod[e, 2]; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; k[n_] := (n / 2^IntegerExponent[n, 2] + 1)/2; a[n_] := DivisorSum[n, k[#] * s[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)
  • PARI
    A003602(n) = (1+(n>>valuation(n,2)))/2;
A349374(n) = sumdiv(n,d,A003602(n/d)*core(d));

Formula

a(n) = Sum_{d|n} A003602(n/d) * A007913(d).

A349373 Dirichlet convolution of Kimberling's paraphrases (A003602) with Dirichlet inverse of Euler phi (A023900).

Original entry on oeis.org

1, 0, 0, -1, -1, 0, -2, -2, -1, 0, -4, 0, -5, 0, 2, -3, -7, 0, -8, 1, 3, 0, -10, 0, -3, 0, -2, 2, -13, 0, -14, -4, 5, 0, 8, 1, -17, 0, 6, 2, -19, 0, -20, 4, 5, 0, -22, 0, -5, 0, 8, 5, -25, 0, 14, 4, 9, 0, -28, -2, -29, 0, 8, -5, 17, 0, -32, 7, 11, 0, -34, 2, -35, 0, 4, 8, 23, 0, -38, 3, -3, 0, -40, -3, 23, 0, 14, 8
Offset: 1

Views

Author

Antti Karttunen, Nov 15 2021

Keywords

Links

Crossrefs

Cf. A003602, A023900.
Cf. A347954, A347955, A347956, A349136, A349370, A349371, A349372, A349374, A349375, A349390, A349431, A349444, A349447 for Dirichlet convolutions of other sequences with A003602.

Programs

  • Mathematica
    f[p_, e_] := (1 - p); d[1] = 1; d[n_] := Times @@ f @@@ FactorInteger[n]; k[n_] := (n / 2^IntegerExponent[n, 2] + 1)/2; a[n_] := DivisorSum[n, k[#] * d[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)
  • PARI
    A003602(n) = (1+(n>>valuation(n,2)))/2;
A023900(n) = factorback(apply(p -> 1-p, factor(n)[, 1]));
A349373(n) = sumdiv(n,d,A003602(n/d)*A023900(d));

Formula

a(n) = Sum_{d|n} A003602(n/d) * A023900(d).
Showing 1-10 of 11 results. Next

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

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