A347234 -id:A347234 - cp's OEIS frontend

A342001 Arithmetic derivative without its inherited divisor; the arithmetic derivative of n divided by A003557(n), which is a common divisor of both n and A003415(n).

0, 1, 1, 2, 1, 5, 1, 3, 2, 7, 1, 8, 1, 9, 8, 4, 1, 7, 1, 12, 10, 13, 1, 11, 2, 15, 3, 16, 1, 31, 1, 5, 14, 19, 12, 10, 1, 21, 16, 17, 1, 41, 1, 24, 13, 25, 1, 14, 2, 9, 20, 28, 1, 9, 16, 23, 22, 31, 1, 46, 1, 33, 17, 6, 18, 61, 1, 36, 26, 59, 1, 13, 1, 39, 11, 40, 18, 71, 1, 22, 4, 43, 1, 62, 22, 45, 32, 35, 1, 41, 20

Offset: 1

Antti Karttunen, Feb 28 2021

nonn

See also the scatter plot of A342002 that seems to reveal some interesting internal structure in this sequence, not fully explained by the regularity of primorial base expansion used in the latter sequence. - Antti Karttunen, May 09 2022

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

Cf. A003415, A003557, A341998, A342416, A342459.
Cf. A342002 [= a(A276086(n))], A342463 [= a(A342456(n))], A351945 [= a(A181819(n))], A353571 [= a(A003961(n))].
Cf. A346485 (Möbius transform), A347395 (convolution with Liouville's lambda), A347961 (with itself), and A347234, A347235, A347954, A347959, A347963, A349396, A349612 (for convolutions with other sequences).
Cf. A007947.

Array[#1/#2 & @@ {If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]]] &@ Abs[#], #/Times @@ FactorInteger[#][[All, 1]]} &, 91] (* Michael De Vlieger, Mar 11 2021 *)

A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A003557(n) = (n/factorback(factorint(n)[, 1]));
A342001(n) = (A003415(n) / A003557(n));

from math import prod
from sympy import factorint
def A342001(n):
    q = prod(f:=factorint(n))
    return sum(q*e//p for p, e in f.items()) # Chai Wah Wu, Nov 04 2022

a(n) = A003415(n) / A003557(n).
For all n >= 0, a(A276086(n)) = A342002(n).
a(n) = A342414(n) * A342416(n) = A342459(n) * A342919(n). - Antti Karttunen, Apr 30 2022
Dirichlet g.f.: Dirichlet g.f. of A007947 * Sum_{p prime} p^s/((p^s-1)*(p^s+p-1)) = zeta(s) * Product_{p prime} (1+p^(1-s)-p^(-s)) * Sum_{p prime} p^s/((p^s-1)*(p^s+p-1)). - Sebastian Karlsson, May 05 2022
Sum_{k=1..n} a(k) ~ c * A065464 * Pi^2 * n^2 / 12, where c = Sum_{j>=2} (1/2 + (-1)^j * (Fibonacci(j) - 1/2))*PrimeZetaP(j) = 0.4526952873143153104685540856936425315834753528741817723313791528384... - Vaclav Kotesovec, May 09 2022

A347954 Dirichlet convolution of A003602 with A342001.

Original entry on oeis.org

0, 1, 1, 3, 1, 8, 1, 6, 4, 11, 1, 20, 1, 14, 13, 10, 1, 26, 1, 29, 16, 20, 1, 37, 5, 23, 12, 38, 1, 81, 1, 15, 22, 29, 19, 62, 1, 32, 25, 55, 1, 106, 1, 56, 48, 38, 1, 59, 6, 48, 31, 65, 1, 74, 25, 73, 34, 47, 1, 191, 1, 50, 61, 21, 28, 156, 1, 83, 40, 151, 1, 112, 1, 59, 60, 92, 28, 181, 1, 89, 34, 65, 1, 254, 34

Offset: 1

Antti Karttunen, Sep 20 2021

nonn

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

Cf. A003415, A003557, A003602, A342001.

Cf. also A347234, A347955, A347956.

A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A003557(n) = (n/factorback(factorint(n)[, 1]));
A003602(n) = (1+(n>>valuation(n,2)))/2;
A342001(n) = (A003415(n) / A003557(n));
A347954(n) = sumdiv(n,d,A003602(d)*A342001(n/d));

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

A347233 Möbius transform of A126760.

Original entry on oeis.org

1, 0, 0, 0, 1, 0, 2, 0, 0, 0, 3, 0, 4, 0, 0, 0, 5, 0, 6, 0, 0, 0, 7, 0, 7, 0, 0, 0, 9, 0, 10, 0, 0, 0, 8, 0, 12, 0, 0, 0, 13, 0, 14, 0, 0, 0, 15, 0, 14, 0, 0, 0, 17, 0, 14, 0, 0, 0, 19, 0, 20, 0, 0, 0, 16, 0, 22, 0, 0, 0, 23, 0, 24, 0, 0, 0, 20, 0, 26, 0, 0, 0, 27, 0, 22, 0, 0, 0, 29, 0, 24, 0, 0, 0, 24, 0, 32

Offset: 1

Antti Karttunen, Aug 26 2021

nonn

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

Cf. A008683, A126760.
Cf. A000004, A349339 (even and odd bisection).
Cf. also A323881, A346485, A347234, A349136, A349391, A349392, A349393, A349395.

f[n_] := 2 * Floor[(m = n/2^IntegerExponent[n, 2]/3^IntegerExponent[n, 3])/6] + Mod[m, 3]; a[n_] := DivisorSum[n, f[#] * MoebiusMu[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)

A126760(n) = {n&&n\=3^valuation(n, 3)<A126760
A347233(n) = sumdiv(n,d,moebius(n/d)*A126760(d));

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

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

Antti Karttunen, Nov 15 2021

nonn

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

Cf. A003602, A126760.

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

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

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

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

A349393 Inverse Möbius transform of A126760.

Original entry on oeis.org

1, 2, 2, 3, 3, 4, 4, 4, 3, 6, 5, 6, 6, 8, 6, 5, 7, 6, 8, 9, 8, 10, 9, 8, 12, 12, 4, 12, 11, 12, 12, 6, 10, 14, 18, 9, 14, 16, 12, 12, 15, 16, 16, 15, 9, 18, 17, 10, 21, 24, 14, 18, 19, 8, 26, 16, 16, 22, 21, 18, 22, 24, 12, 7, 30, 20, 24, 21, 18, 36, 25, 12, 26, 28, 24, 24, 34, 24, 28, 15, 5, 30, 29, 24, 38, 32, 22

Offset: 1

Antti Karttunen, Nov 16 2021

nonn

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

Cf. A347233, A347234, A349390, A349391, A349392, A349395 for other Dirichlet convolutions of A126760. And also A349371.

f[n_] := 2 * Floor[(m = n/2^IntegerExponent[n, 2]/3^IntegerExponent[n, 3])/6] + Mod[m, 3]; a[n_] := DivisorSum[n, f[#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)

A126760(n) = {n&&n\=3^valuation(n, 3)<A126760
A349393(n) = sumdiv(n,d,A126760(d));

a(n)=my(a=valuation(n,2),b=valuation(n,3),c=(a+1)*(b+1)); sumdiv(n/3^b>>a,d, d\6*2+d%3)*c; \\ Charles R Greathouse IV, Nov 16 2021

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

A346485 Möbius transform of A342001, where A342001(n) = A003415(n)/A003557(n).

Original entry on oeis.org

0, 1, 1, 1, 1, 3, 1, 1, 1, 5, 1, 2, 1, 7, 6, 1, 1, 1, 1, 4, 8, 11, 1, 2, 1, 13, 1, 6, 1, 14, 1, 1, 12, 17, 10, 0, 1, 19, 14, 4, 1, 20, 1, 10, 4, 23, 1, 2, 1, 1, 18, 12, 1, 1, 14, 6, 20, 29, 1, 8, 1, 31, 6, 1, 16, 32, 1, 16, 24, 34, 1, 0, 1, 37, 2, 18, 16, 38, 1, 4, 1, 41, 1, 12, 20, 43, 30, 10, 1, 4, 18, 22, 32, 47

Offset: 1

Antti Karttunen, Aug 26 2021

nonn

Conjecture 1: After the initial zero, the positions of other zeros is given by A036785.

Conjecture 2: No negative terms. Checked up to n = 2^24.

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

Cf. A003415, A003557, A008683, A036785, A342001, A347232 [= a(A276086(n))].

Cf. also A300251, A300717, A347234, A347235, A347395.

A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A003557(n) = (n/factorback(factorint(n)[, 1]));
A342001(n) = (A003415(n) / A003557(n));
A346485(n) = sumdiv(n,d,moebius(n/d)*A342001(d));

a(n) = Sum_{d|n} A008683(n/d) * A342001(d).
Dirichlet g.f.: Product_{p prime} (1+p^(1-s)-p^(-s)) * Sum_{p prime} p^s/((p^s-1)*(p^s+p-1)). - Sebastian Karlsson, May 08 2022
Sum_{k=1..n} a(k) ~ c * A065464 * n^2 / 2, where c = Sum_{j>=2} (1/2 + (-1)^j * (Fibonacci(j) - 1/2))*PrimeZetaP(j) = 0.4526952873143153104685540856936425315834753528741817723313791528384... - Vaclav Kotesovec, Mar 04 2023

A347235 Dirichlet convolution of Euler phi with A342001, where A342001(n) = A003415(n) / A003557(n).

Original entry on oeis.org

0, 1, 1, 3, 1, 8, 1, 7, 4, 12, 1, 21, 1, 16, 14, 15, 1, 27, 1, 33, 18, 24, 1, 47, 6, 28, 13, 45, 1, 87, 1, 31, 26, 36, 22, 69, 1, 40, 30, 75, 1, 119, 1, 69, 51, 48, 1, 99, 8, 63, 38, 81, 1, 84, 30, 103, 42, 60, 1, 219, 1, 64, 67, 63, 34, 183, 1, 105, 50, 183, 1, 153, 1, 76, 75, 117, 34, 215, 1, 159, 40, 84, 1, 303, 42

Offset: 1

Antti Karttunen, Aug 26 2021

nonn

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

Cf. A000010, A003415, A003557, A342001.

Cf. also A346485, A347131, A347233, A347234, A347395.

A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A003557(n) = (n/factorback(factorint(n)[, 1]));
A342001(n) = (A003415(n) / A003557(n));
A347235(n) = sumdiv(n,d,eulerphi(d)*A342001(n/d));

A347235(n) = sum(k=1,n,A342001(gcd(n,k))); \\ (Slow) - Antti Karttunen, Sep 02 2021

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

a(n) = Sum_{k=1..n} A342001(gcd(n,k)). - Antti Karttunen, Sep 02 2021

A349395 Dirichlet convolution of A126760 with Liouville's lambda.

Original entry on oeis.org

1, 0, 0, 1, 1, 0, 2, 0, 1, 0, 3, 0, 4, 0, 0, 1, 5, 0, 6, 1, 0, 0, 7, 0, 8, 0, 0, 2, 9, 0, 10, 0, 0, 0, 8, 1, 12, 0, 0, 0, 13, 0, 14, 3, 1, 0, 15, 0, 15, 0, 0, 4, 17, 0, 14, 0, 0, 0, 19, 0, 20, 0, 2, 1, 16, 0, 22, 5, 0, 0, 23, 0, 24, 0, 0, 6, 20, 0, 26, 1, 1, 0, 27, 0, 22, 0, 0, 0, 29, 0, 24, 7, 0, 0, 24, 0, 32, 0

Offset: 1

Antti Karttunen, Nov 15 2021

nonn

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

Cf. A008836, A126760.

Cf. A347233, A347234, A349390, A349391, A349392, A349393 for other Dirichlet convolutions of A126760. And also A349375.

f[n_] := 2 * Floor[(m = n/2^IntegerExponent[n, 2]/3^IntegerExponent[n, 3])/6] + Mod[m, 3]; a[n_] := DivisorSum[n, f[#] * LiouvilleLambda[n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)

A008836(n) = ((-1)^bigomega(n));
A126760(n) = {n&&n\=3^valuation(n, 3)<A126760
A349395(n) = sumdiv(n,d,A126760(n/d)*A008836(d));

A349392 Dirichlet convolution of A126760 with tau (number of divisors function).

Original entry on oeis.org

1, 3, 3, 6, 4, 9, 5, 10, 6, 12, 6, 18, 7, 15, 12, 15, 8, 18, 9, 24, 15, 18, 10, 30, 16, 21, 10, 30, 12, 36, 13, 21, 18, 24, 26, 36, 15, 27, 21, 40, 16, 45, 17, 36, 24, 30, 18, 45, 26, 48, 24, 42, 20, 30, 35, 50, 27, 36, 22, 72, 23, 39, 30, 28, 40, 54, 25, 48, 30, 78, 26, 60, 27, 45, 48, 54, 44, 63, 29, 60, 15, 48

Offset: 1

Antti Karttunen, Nov 15 2021

nonn

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

Cf. A000005, A126760.

Cf. A347233, A347234, A349390, A349391, A349393, A349395 for other Dirichlet convolutions of A126760. And also A349372.

f[n_] := 2 * Floor[(m = n/2^IntegerExponent[n, 2]/3^IntegerExponent[n, 3])/6] + Mod[m, 3]; a[n_] := DivisorSum[n, f[#] * DivisorSigma[0, n/#] &]; Array[a, 100] (* Amiram Eldar, Nov 16 2021 *)

A126760(n) = {n&&n\=3^valuation(n, 3)<A126760
A349392(n) = sumdiv(n,d,A126760(n/d)*numdiv(d));

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

A347959 Dirichlet convolution of A342001 with A345000.

Original entry on oeis.org

0, 1, 1, 3, 1, 7, 1, 7, 3, 9, 1, 18, 1, 11, 10, 15, 1, 16, 1, 24, 12, 15, 1, 40, 3, 17, 6, 30, 1, 54, 1, 39, 16, 21, 14, 41, 1, 23, 18, 54, 1, 72, 1, 42, 25, 27, 1, 92, 3, 24, 22, 52, 1, 30, 18, 68, 24, 33, 1, 132, 1, 35, 35, 73, 20, 96, 1, 60, 28, 92, 1, 99, 1, 41, 27, 66, 20, 114, 1, 120, 10, 45, 1, 176, 24, 47

Offset: 1

Antti Karttunen, Sep 21 2021

Antti Karttunen, Table of n, a(n) for n = 1..11550
Index entries for sequences related to primorial base

Cf. A003415, A327860, A342001, A345000.

Cf. also A347234, A347954, A347958.

A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A003557(n) = (n/factorback(factorint(n)[, 1]));
A342001(n) = (A003415(n) / A003557(n));
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A345000(n) = gcd(A003415(n), A003415(A276086(n)));
A347959(n) = sumdiv(n,d,A342001(n/d)*A345000(d));

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

cp's OEIS Frontend

A342001 Arithmetic derivative without its inherited divisor; the arithmetic derivative of n divided by A003557(n), which is a common divisor of both n and A003415(n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Python

Formula

A347954 Dirichlet convolution of A003602 with A342001.

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

Formula

A347233 Möbius transform of A126760.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A349393 Inverse Möbius transform of A126760.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A346485 Möbius transform of A342001, where A342001(n) = A003415(n)/A003557(n).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

PARI

Formula

A347235 Dirichlet convolution of Euler phi with A342001, where A342001(n) = A003415(n) / A003557(n).

Views

Author

Keywords

Links

Crossrefs

Programs

PARI

PARI

Formula

A349395 Dirichlet convolution of A126760 with Liouville's lambda.

Views

Author

Keywords

Links

Crossrefs

Programs