OFFSET
1,1
COMMENTS
Subsequence of A005835.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
idivs[x_] := If[x == 1, 1, Sort@Flatten@Outer[Times, Sequence @@ (FactorInteger[x] /. {p_, m_Integer} :> p^Select[Range[0, m], BitOr[m, #] == m &])]]; s = {}; Do[d = Most[idivs[n]]; c = SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n]; If[c > 0, AppendTo[s, n]], {n, 2, 1000}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 18 2019
STATUS
approved