OFFSET
1,1
COMMENTS
It seems that most of the exponential pseudoperfect numbers are e-perfect. Up to 10^6 there are 9674 exponential pseudoperfect numbers, of them only 984 are not e-perfect.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, e-Divisor
Eric Weisstein's World of Mathematics, e-Perfect Number
MATHEMATICA
dQ[n_, m_] := (n>0&&m>0 &&Divisible[n, m]); expDivQ[n_, d_] := Module[ {ft=FactorInteger[n]}, And@@MapThread[dQ, {ft[[;; , 2]], IntegerExponent[ d, ft[[;; , 1]]]} ]]; eDivs[n_] := Module[ {d=Rest[Divisors[n]]}, Select[ d, expDivQ[n, #]&] ]; esigma[1]=1; esigma[n_] := Total@eDivs[n]; eAbundantQ[n_] := esigma[n] > 2n; a = {}; n = 0; While[Length[a] < 30, n++; If[!eAbundantQ[n], Continue[]]; d = Most[eDivs[n]]; c = SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n]; If[c > 0, AppendTo[a, n]]]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 30 2018
STATUS
approved