|
|
A326813
|
|
Dirichlet g.f.: zeta(2*s) / (1 - 2^(-s)).
|
|
1
|
|
|
1, 1, 0, 2, 0, 0, 0, 2, 1, 0, 0, 0, 0, 0, 0, 3, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 3, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Sum_{k>=0} (theta_3(x^(2^k)) - 1) / 2.
a(n) = Sum_{d|n} tau(n/d) * (-1)^bigomega(d) * 2^(omega(2*d) - 1), where tau = A000005, bigomega = A001222 and omega = A001221.
Product_{n>=1} (1 + x^n)^a(n) = g.f. for A001156.
Multiplicative with a(2^e) = floor(e/2) + 1, and a(p^e) = 0 if e is odd and 1 if e is even, for odd primes p. - Amiram Eldar, Nov 30 2020
|
|
MATHEMATICA
|
Table[Sum[Boole[IntegerQ[Log[2, n/d]]] Boole[IntegerQ[d^(1/2)]], {d, Divisors[n]}], {n, 1, 100}]
Table[Sum[DivisorSigma[0, n/d] (-1)^PrimeOmega[d] 2^(PrimeNu[2 d] - 1), {d, Divisors[n]}], {n, 1, 100}]
f[2, e_] := Floor[e/2] + 1; f[p_, e_] := Boole @ EvenQ[e]; a[1] = 1; a[n_] := Times @@ (f @@@ FactorInteger[n]); Array[a, 100] (* Amiram Eldar, Nov 30 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,mult
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|