A341039 Numbers k such that k divides A341038(k).
1, 12, 18, 56, 117, 810, 992, 2091, 16256, 796797, 2488734, 22122192, 57636005, 67100672, 114243682
Offset: 1
Examples
a(3) = 18 is a term because A341038(18) = 198 is divisible by 18.
Programs
-
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]);
Comments