OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
József Sándor, On exponentially harmonic numbers, Scientia Magna, Vol. 2, No. 3 (2006), pp. 44-47.
József Sándor, Selected Chapters of Geomety, Analysis and Number Theory, 2005, pp. 141-145.
EXAMPLE
12 is a term since A348963(12) = 3 is a divisor of 12.
MATHEMATICA
f[p_, e_] := p^e/DivisorSum[e, p^(e - #) &]; modEPerfQ[1] = True; modEPerfQ[n_] := IntegerQ[Times @@ f @@@ FactorInteger[n]]; Select[Range[100], modEPerfQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 06 2021
STATUS
approved