A349371 -id:A349371 - cp's OEIS frontend

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

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

Antti Karttunen, Nov 15 2021

sign

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

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.

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 *)

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));

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

A353460 Dirichlet convolution of A126760 with A349134 (the Dirichlet inverse of Kimberling's paraphrases).

Original entry on oeis.org

1, 0, -1, 0, -1, 0, -1, 0, -2, 0, -2, 0, -2, 0, -1, 0, -3, 0, -3, 0, -2, 0, -4, 0, -1, 0, -4, 0, -5, 0, -5, 0, -3, 0, 1, 0, -6, 0, -4, 0, -7, 0, -7, 0, 0, 0, -8, 0, -4, 0, -5, 0, -9, 0, 3, 0, -6, 0, -10, 0, -10, 0, -1, 0, 2, 0, -11, 0, -7, 0, -12, 0, -12, 0, -3, 0, 1, 0, -13, 0, -8, 0, -14, 0, 4, 0, -9, 0, -15, 0, 0, 0

Offset: 1

Antti Karttunen, Apr 20 2022

sign

Taking the Dirichlet convolution between this sequence and A349371 gives A349393, and similarly for many other such analogous pairs.

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

Cf. A003602, A126760, A349134, A353461 (Dirichlet inverse), A353462 (sum with it).

Cf. also A349371, A349380, A349393, A349432.

A003602(n) = (1+(n>>valuation(n,2)))/2;
A126760(n) = {n&&n\=3^valuation(n, 3)<A126760
memoA349134 = Map();
A349134(n) = if(1==n,1,my(v); if(mapisdefined(memoA349134,n,&v), v, v = -sumdiv(n,d,if(dA003602(n/d)*A349134(d),0)); mapput(memoA349134,n,v); (v)));
A353460(n) = sumdiv(n,d,A126760(d)*A349134(n/d));

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

A353461 Dirichlet convolution of A003602 (Kimberling's paraphrases) with A323881 (the Dirichlet inverse of A126760).

Original entry on oeis.org

1, 0, 1, 0, 1, 0, 1, 0, 3, 0, 2, 0, 2, 0, 3, 0, 3, 0, 3, 0, 4, 0, 4, 0, 2, 0, 9, 0, 5, 0, 5, 0, 7, 0, 1, 0, 6, 0, 8, 0, 7, 0, 7, 0, 9, 0, 8, 0, 5, 0, 11, 0, 9, 0, 1, 0, 12, 0, 10, 0, 10, 0, 12, 0, 2, 0, 11, 0, 15, 0, 12, 0, 12, 0, 10, 0, 3, 0, 13, 0, 27, 0, 14, 0, 2, 0, 19, 0, 15, 0, 4, 0, 20, 0, 3, 0, 16, 0, 21

Offset: 1

Antti Karttunen, Apr 20 2022

sign

Taking the Dirichlet convolution between this sequence and A349393 gives A349371, and similarly for many other such analogous pairs.

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

Cf. A003602, A126760, A323881, A353460 (Dirichlet inverse), A353462 (sum with it).

Cf. also A349371, A349393.

up_to = 65537;
A003602(n) = (1+(n>>valuation(n,2)))/2;
A126760(n) = {n&&n\=3^valuation(n, 3)<A126760
DirInverseCorrect(v) = { my(u=vector(#v)); u[1] = (1/v[1]); for(n=2, #v, u[n] = (-u[1])*sumdiv(n, d, if(dA126760(n)));
A323881(n) = v323881[n];
A353461(n) = sumdiv(n,d,A003602(d)*A323881(n/d));

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

a(n) = A353462(n) - A353460(n).

cp's OEIS Frontend

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A353460 Dirichlet convolution of A126760 with A349134 (the Dirichlet inverse of Kimberling's paraphrases).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Formula

A353461 Dirichlet convolution of A003602 (Kimberling's paraphrases) with A323881 (the Dirichlet inverse of A126760).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Formula