%I #20 Feb 05 2021 19:35:49
%S 1,12,18,56,117,810,992,2091,16256,796797,2488734,22122192,57636005,
%T 67100672,114243682
%N Numbers k such that k divides A341038(k).
%C Contains no primes.
%e a(3) = 18 is a term because A341038(18) = 198 is divisible by 18.
%p f:= proc(n) local D,S,i;
%p D:= sort(convert(numtheory:-divisors(n),list));
%p S:= ListTools:-PartialSums(D);
%p add(S[-i]*D[i],i=1..nops(D))
%p end proc:
%p select(t -> f(t) mod t = 0, [$1..20000]);
%Y Includes A139256.
%Y Cf. A341038.
%K nonn,more
%O 1,2
%A _J. M. Bergot_ and _Robert Israel_, Feb 03 2021