OFFSET
1,1
COMMENTS
LINKS
Bhabesh Das and Helen K. Saikia, Identities for Near and Deficient Hyperperfect Numbers, Indian Journal in Number Theory, Vol. 3 (2016), pp. 124-134, alternative link.
EXAMPLE
15 is in the sequence since sigma(15) = 24 and 24 - 3*15/2 - 1/2 = 1 is a proper divisor of 15.
MATHEMATICA
aQ[n_]:=Module[{d=DivisorSigma[1, n]-3n/2-1/2}, d>0 && d!=n && IntegerQ[d] && Divisible[n, d]]; Select[Range[1000000], aQ]
PROG
(PARI) isok(n) = (n % 2) && (k = sigma(n) - (3*n+1)/2) && (k>0) && !(n % k) && (k != n); \\ Michel Marcus, Jun 07 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jun 06 2018
STATUS
approved