OFFSET
1,1
COMMENTS
Differs from bi-unitary weird numbers from n >= 32 (a(32) = 17920 is not bi-unitary weird).
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]]; If[Total[d]<n, Continue[]]; c = SeriesCoefficient[ Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n]; If[c < 1, AppendTo[s, n]], {n, 2, 10000}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 18 2019
STATUS
approved