|
|
A328706
|
|
Dirichlet g.f.: Product_{k>=2} (1 + k^(-s))^2.
|
|
10
|
|
|
1, 2, 2, 3, 2, 6, 2, 6, 3, 6, 2, 12, 2, 6, 6, 9, 2, 12, 2, 12, 6, 6, 2, 24, 3, 6, 6, 12, 2, 22, 2, 14, 6, 6, 6, 28, 2, 6, 6, 24, 2, 22, 2, 12, 12, 6, 2, 42, 3, 12, 6, 12, 2, 24, 6, 24, 6, 6, 2, 52, 2, 6, 12, 22, 6, 22, 2, 12, 6, 22, 2, 60, 2, 6, 12, 12, 6, 22, 2, 42
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Dirichlet convolution of A045778 with itself.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Block[{f}, f[m_, 1] := 1; f[1, n_] := 0; f[1, 1] := 1; f[0, n_] := 0; f[m_, n_] := f[m, n] = Total[f[# - 1, n/#] & /@ Select[Divisors[n], # <= m &]]; Table[DivisorSum[n, f[n/#, n/#]*f[#, #] &], {n, 80}]] (* Michael De Vlieger, Nov 04 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|