OFFSET
1,1
COMMENTS
Or numbers k such that A065205(k) = 3.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
EXAMPLE
The proper divisors of 30 = {1,2,3,5,6,10,15} and 30 = 5+10+15 = 2+3+10+15 = 1+3+5+6+15.
MATHEMATICA
seqQ[n_] := Module[{d = Most[Divisors[n]]}, SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n] == 3]; Select[Range[1000], seqQ[#] &] (* Amiram Eldar, Jan 13 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 29 2009
STATUS
approved