login
Numbers k such that k divides A341038(k).
2

%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