OFFSET
1,1
COMMENTS
EXAMPLE
902880 is a term since A162296(902880) = 3611520 = 4*902880.
MATHEMATICA
q[n_] := Module[{f = FactorInteger[n], p, e}, p = f[[;; , 1]]; e = f[[;; , 2]]; Times @@ ((p^(e + 1) - 1)/(p - 1)) - Times @@ (p + 1) == 4*n]; Select[Range[2, 2*10^6], q]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Oct 01 2022
STATUS
approved