OFFSET
1,1
COMMENTS
Conjecture: there are only 8 terms.
MAPLE
filter:= proc(n) local S, s, t;
S:= select(t -> igcd(t, n)=1, [$1..n-1]);
s:= nops(S)*n/2;
s mod add(s mod t, t=S) = 0;
end proc:
select(filter, [$3..1000]);
CROSSREFS
KEYWORD
nonn,more
AUTHOR
J. M. Bergot and Robert Israel, May 02 2021
STATUS
approved