OFFSET
1,1
COMMENTS
The even perfect numbers (A000396) are a subsequence.
LINKS
Robert Israel, Table of n, a(n) for n = 1..214
MAPLE
filter:= proc(n) local Q, p, s;
Q:= numtheory:-divisors(n) minus {n};
p:= convert(Q, `*`); s:= convert(Q, `+`);
p mod s = 0 and (p * n ) mod (s + n ) = 0
end proc:
select(filter, [$2..2*10^5]); # Robert Israel, Apr 22 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jul 11 2011
STATUS
approved
