OFFSET
1,2
COMMENTS
Contains no primes.
EXAMPLE
a(3) = 18 is a term because A341038(18) = 198 is divisible by 18.
MAPLE
f:= proc(n) local D, S, i;
D:= sort(convert(numtheory:-divisors(n), list));
S:= ListTools:-PartialSums(D);
add(S[-i]*D[i], i=1..nops(D))
end proc:
select(t -> f(t) mod t = 0, [$1..20000]);
CROSSREFS
KEYWORD
nonn,more
AUTHOR
J. M. Bergot and Robert Israel, Feb 03 2021
STATUS
approved