|
|
A343466
|
|
a(n) = -(1/n) * Sum_{d|n} phi(n/d) * (-4)^d.
|
|
2
|
|
|
4, -6, 24, -66, 208, -676, 2344, -8226, 29144, -104760, 381304, -1398476, 5162224, -19172796, 71582944, -268439586, 1010580544, -3817734596, 14467258264, -54975633768, 209430787824, -799644629556, 3059510616424, -11728124734476, 45035996273872, -173215367702376, 667199944815064
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
G.f.: Sum_{k>=1} phi(k) * log(1 + 4*x^k) / k.
a(n) = -(1/n) * Sum_{k=1..n} (-4)^gcd(n,k).
Product_{n>=1} 1 / (1 - x^n)^a(n) = g.f. for A261568.
|
|
MATHEMATICA
|
Table[-(1/n) Sum[EulerPhi[n/d] (-4)^d, {d, Divisors[n]}], {n, 1, 27}]
nmax = 27; CoefficientList[Series[Sum[EulerPhi[k] Log[1 + 4 x^k]/k, {k, 1, nmax}], {x, 0, nmax}], x] // Rest
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|