OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..3000
EXAMPLE
60 is a term since its number of divisors is 12 which is not a power of 2, so not all of its divisors are infinitary, and it is the sum of its infinitary divisors: 1 + 3 + 4 + 5 + 12 + 15 + 20 = 60.
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 &])]]; infpspQ[n_] := Module[{d = Most @ idivs[n], x}, Plus @@ d >= n && SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n] > 0]; pow2Q[n_] := n == 2^IntegerExponent[n, 2]; Select[Range[2, 500], !pow2Q[DivisorSigma[0, #]] && infpspQ[#] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jun 30 2020
STATUS
approved