|
|
A295635
|
|
Write 2 - Zeta(s) in the form 1/Product_{n > 1}(1 + a(n)/n^s).
|
|
2
|
|
|
1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 4, 1, 2, 2, 6, 1, 4, 1, 4, 2, 2, 1, 8, 2, 2, 2, 4, 1, 6, 1, 6, 2, 2, 2, 12, 1, 2, 2, 8, 1, 6, 1, 4, 4, 2, 1, 16, 2, 4, 2, 4, 1, 8, 2, 8, 2, 2, 1, 16, 1, 2, 4, 10, 2, 6, 1, 4, 2, 6, 1, 24, 1, 2, 4, 4, 2, 6, 1, 16, 6, 2, 1, 16, 2, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,3
|
|
LINKS
|
|
|
MATHEMATICA
|
nn=100;
facs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[facs[n/d], Min@@#>=d&]], {d, Rest[Divisors[n]]}]];
-Solve[Table[-1==Sum[Times@@a/@f, {f, facs[n]}], {n, 2, nn}], Table[a[n], {n, 2, nn}]][[1, All, 2]]
|
|
CROSSREFS
|
Cf. A001055, A045778, A050376, A220418, A220420, A273866, A273873, A289501, A290261, A290262, A290971, A290973, A295279, A295632, A295636.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|