A046644 From square root of Riemann zeta function: form Dirichlet series Sum b_n/n^s whose square is zeta function; sequence gives denominator of b_n.
1, 2, 2, 8, 2, 4, 2, 16, 8, 4, 2, 16, 2, 4, 4, 128, 2, 16, 2, 16, 4, 4, 2, 32, 8, 4, 16, 16, 2, 8, 2, 256, 4, 4, 4, 64, 2, 4, 4, 32, 2, 8, 2, 16, 16, 4, 2, 256, 8, 16, 4, 16, 2, 32, 4, 32, 4, 4, 2, 32, 2, 4, 16, 1024, 4, 8, 2, 16, 4, 8, 2, 128, 2, 4, 16, 16, 4, 8
Offset: 1
A317934 Multiplicative with a(p^n) = 2^A011371(n); denominators for certain "Dirichlet Square Roots" sequences.
1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 2, 1, 1, 1, 8, 1, 2, 1, 2, 1, 1, 1, 2, 2, 1, 2, 2, 1, 1, 1, 8, 1, 1, 1, 4, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 8, 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 2, 16, 1, 1, 1, 2, 1, 1, 1, 4, 1, 1, 2, 2, 1, 1, 1, 8, 8, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 8, 1, 2, 2, 4, 1, 1, 1, 2, 1
Offset: 1
Comments
a(n) is the denominator of certain rational valued sequences f(n), that have been defined as f(n) = (1/2) * (b(n) - Sum_{d|n, d>1, dA034444 and A037445.
Many of the same observations as given in A046644 apply also here. Note that A011371 shares with A005187 the property that A011371(x+y) <= A011371(x) + A011371(y), with equivalence attained only when A004198(x,y) = 0, and also the property that A011371(2^(k+1)) = 1 + 2*A011371(2^k).
The following list gives such pairs num(n), b(n) for which b(n) is Dirichlet convolution of num(n)/a(n).
Numerators Dirichlet convolution of numerator(n)/a(n) yields
------- -----------
Expansion of Dirichlet g.f. Product_{prime} 1/(1 - 2/p^s)^(1/2) is A046643/A317934. - Vaclav Kotesovec, May 08 2025
Links
- Antti Karttunen, Table of n, a(n) for n = 1..65537
- Vaclav Kotesovec, Graph - the asymptotic ratio (1000000 terms)
- Wikipedia, Dirichlet convolution
Crossrefs
Programs
-
PARI
A011371(n) = (n - hammingweight(n)); A317934(n) = factorback(apply(e -> 2^A011371(e),factor(n)[,2]));
-
PARI
for(n=1, 100, print1(denominator(direuler(p=2, n, 1/(1-2*X)^(1/2))[n]), ", ")) \\ Vaclav Kotesovec, May 07 2025
-
PARI
for(n=1, 100, print1(denominator(direuler(p=2, n, ((1+X)/(1-X))^(1/2))[n]), ", ")) \\ Vaclav Kotesovec, May 09 2025
Formula
a(n) = 2^A317946(n).
a(n) = denominator of f(n), where f(1) = 1, f(n) = (1/2) * (b(n) - Sum_{d|n, d>1, d 1, where b is A034444, A037445 or A046644 for example.
Sum_{k=1..n} A046643(k)/a(k) ~ n * sqrt(A167864*log(n)/(Pi*log(2))) * (1 + (4*(gamma - 1) + 5*log(2) - 4*A347195)/(8*log(n))), where gamma is the Euler-Mascheroni constant A001620. - Vaclav Kotesovec, May 08 2025
A317831 Numerators of rational valued sequence f whose Dirichlet convolution with itself yields A000203 (sigma, the sum of divisors).
1, 3, 2, 19, 3, 3, 4, 63, 9, 9, 6, 19, 7, 6, 6, 867, 9, 27, 10, 57, 8, 9, 12, 63, 11, 21, 11, 19, 15, 9, 16, 3069, 12, 27, 12, 171, 19, 15, 14, 189, 21, 12, 22, 57, 27, 18, 24, 867, 41, 33, 18, 133, 27, 33, 18, 63, 20, 45, 30, 57, 31, 24, 18, 22199, 21, 18, 34, 171, 24, 18, 36, 567, 37, 57, 22, 95, 24, 21, 40, 2601, 227, 63, 42, 19, 27, 33
Offset: 1
Links
- Antti Karttunen, Table of n, a(n) for n = 1..16384
- Vaclav Kotesovec, Graph - the asymptotic ratio (10000 terms)
- Index entries for sequences related to sigma(n)
Programs
Formula
a(n) = numerator of f(n), where f(1) = 1, f(n) = (1/2) * (A000203(n) - Sum_{d|n, d>1, d 1.
Sum_{k=1..n} A317831(k) / A317832(k) ~ n^2 * sqrt(Pi/(24*log(n))) * (1 - (gamma - 1 + 6*zeta'(2)/Pi^2) / (4*log(n))), where gamma is the Euler-Mascheroni constant A001620. - Vaclav Kotesovec, May 09 2025
A317926 Denominators of rational valued sequence whose Dirichlet convolution with itself yields Euler's phi (A000010).
1, 2, 1, 8, 1, 2, 1, 16, 2, 1, 1, 8, 1, 2, 1, 128, 1, 4, 1, 4, 1, 2, 1, 16, 1, 1, 2, 8, 1, 1, 1, 256, 1, 1, 1, 16, 1, 2, 1, 8, 1, 2, 1, 8, 1, 2, 1, 128, 2, 1, 1, 4, 1, 4, 1, 16, 1, 1, 1, 4, 1, 2, 2, 1024, 1, 2, 1, 1, 1, 1, 1, 32, 1, 1, 1, 8, 1, 1, 1, 64, 8, 1, 1, 8, 1, 2, 1, 16, 1, 2, 1, 8, 1, 2, 1, 256, 1, 4, 2, 1, 1, 1, 1, 8, 1
Offset: 1
Links
- Antti Karttunen, Table of n, a(n) for n = 1..16384
Programs
-
Mathematica
f[1] = 1; f[n_] := f[n] = (EulerPhi[n] - DivisorSum[n, f[#]*f[n/#] &, 1 < # < n &])/2; Denominator @ Array[f, 100] (* Amiram Eldar, Dec 12 2022 *)
-
PARI
A317925perA317926(n) = if(1==n,n,(eulerphi(n)-sumdiv(n,d,if((d>1)&&(d
A317925perA317926(d)*A317925perA317926(n/d),0)))/2); A317926(n) = denominator(A317925perA317926(n)); -
PARI
for(n=1, 100, print1(denominator(direuler(p=2, n, ((1-X)/(1-p*X))^(1/2))[n]), ", ")) \\ Vaclav Kotesovec, May 09 2025
Formula
a(n) = denominator of f(n), where f(1) = 1, f(n) = (1/2) * (A000010(n) - Sum_{d|n, d>1, d 1.
Comments
Links
Crossrefs
Programs
Mathematica
PARI
PARI
PARI
Scheme
Formula