This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A341039 #20 Feb 05 2021 19:35:49 %S A341039 1,12,18,56,117,810,992,2091,16256,796797,2488734,22122192,57636005, %T A341039 67100672,114243682 %N A341039 Numbers k such that k divides A341038(k). %C A341039 Contains no primes. %e A341039 a(3) = 18 is a term because A341038(18) = 198 is divisible by 18. %p A341039 f:= proc(n) local D,S,i; %p A341039 D:= sort(convert(numtheory:-divisors(n),list)); %p A341039 S:= ListTools:-PartialSums(D); %p A341039 add(S[-i]*D[i],i=1..nops(D)) %p A341039 end proc: %p A341039 select(t -> f(t) mod t = 0, [$1..20000]); %Y A341039 Includes A139256. %Y A341039 Cf. A341038. %K A341039 nonn,more %O A341039 1,2 %A A341039 _J. M. Bergot_ and _Robert Israel_, Feb 03 2021