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
A299151 Numerators of the positive solution to 2^(n-1) = Sum_{d|n} a(d) * a(n/d).
1, 1, 2, 7, 8, 14, 32, 121, 126, 248, 512, 1003, 2048, 4064, 8176, 130539, 32768, 65382, 131072, 261868, 524224, 1048064, 2097152, 4193131, 8388576, 16775168, 33554180, 67104688, 134217728, 268426672, 536870912, 8589802359, 2147482624, 4294934528, 8589934336, 17179801257, 34359738368, 68719345664, 137438949376, 274877643724, 549755813888
Offset: 1
Comments
Numerators of rational valued sequence f whose Dirichlet convolution with itself yields function g(n) = A000079(n-1) = 2^(n-1). - Antti Karttunen, Aug 10 2018
Examples
Sequence begins: 1, 1, 2, 7/2, 8, 14, 32, 121/2, 126, 248, 512, 1003, 2048, 4064, 8176, 130539/8, 32768.
Links
- Andrew Howroyd, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
nn=50; sys=Table[2^(n-1)==Sum[a[d]*a[n/d],{d,Divisors[n]}],{n,nn}]; Numerator[Array[a,nn]/.Solve[sys,Array[a,nn]][[2]]]
-
PARI
A299151perA299152(n) = if(1==n,n,(2^(n-1)-sumdiv(n,d,if((d>1)&&(d
A299151perA299152(d)*A299151perA299152(n/d),0)))/2); A299151(n) = numerator(A299151perA299152(n));
Extensions
More terms from Antti Karttunen, Jul 29 2018
A317832 Denominators of rational valued sequence f whose Dirichlet convolution with itself yields A000203 (sigma, the sum of divisors).
1, 2, 1, 8, 1, 1, 1, 16, 2, 2, 1, 4, 1, 1, 1, 128, 1, 4, 1, 8, 1, 1, 1, 8, 1, 2, 1, 2, 1, 1, 1, 256, 1, 2, 1, 16, 1, 1, 1, 16, 1, 1, 1, 4, 2, 1, 1, 64, 2, 2, 1, 8, 1, 2, 1, 4, 1, 2, 1, 4, 1, 1, 1, 1024, 1, 1, 1, 8, 1, 1, 1, 32, 1, 2, 1, 4, 1, 1, 1, 128, 8, 2, 1, 1, 1, 1, 1, 8, 1, 4, 1, 2, 1, 1, 1, 128, 1, 4, 1, 8, 1, 1, 1, 16, 1
Offset: 1
Links
Programs
Formula
a(n) = denominator of f(n), where f(1) = 1, f(n) = (1/2) * (A000203(n) - Sum_{d|n, d>1, d 1.
A317928 Denominators of rational valued sequence whose Dirichlet convolution with itself yields A005187.
1, 2, 1, 8, 1, 1, 2, 16, 1, 1, 2, 4, 2, 4, 1, 128, 1, 1, 2, 1, 2, 4, 1, 2, 2, 4, 1, 16, 1, 2, 2, 256, 1, 1, 2, 4, 2, 4, 1, 8, 2, 4, 1, 16, 1, 2, 2, 64, 8, 4, 1, 16, 1, 2, 2, 32, 1, 2, 2, 8, 2, 4, 1, 1024, 1, 1, 2, 2, 2, 4, 1, 1, 2, 4, 1, 16, 4, 2, 2, 32, 2, 4, 1, 16, 1, 2, 2, 32, 1, 2, 4, 8, 2, 4, 1, 64, 2, 16, 1, 16, 1, 2, 2, 32, 2
Offset: 1
Links
- Antti Karttunen, Table of n, a(n) for n = 1..16384
Programs
Formula
a(n) = denominator of f(n), where f(1) = 1, f(n) = (1/2) * (A005187(n) - Sum_{d|n, d>1, d 1.
Comments
Links
Crossrefs
Programs
Mathematica
PARI
PARI
PARI
Scheme
Formula