OFFSET
1,2
COMMENTS
Dirichlet convolution of A045778 with itself.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
Jacob Sprittulla, On Colored Factorizations, arXiv:2008.09984 [math.CO], 2020.
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
Ilya Gutkovskiy, Oct 26 2019
STATUS
approved