|
|
A341039
|
|
Numbers k such that k divides A341038(k).
|
|
2
|
|
|
1, 12, 18, 56, 117, 810, 992, 2091, 16256, 796797, 2488734, 22122192, 57636005, 67100672, 114243682
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Contains no primes.
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|