OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(5)=12 = 2*2*3 is a term because 2 + 2*2 = 6 divides 12.
MAPLE
filter:= proc(n)
local F, T, P, j;
if isprime(n) then return false fi;
F:= sort(map(t -> t[1]$t[2], ifactors(n)[2]));
T:= 0; P:= 1;
for j from 1 to nops(F)-1 do
P:= P*F[j];
T:= T+P;
od;
n mod T = 0
end proc:
select(filter, [$4..1000]);
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Dec 03 2020
STATUS
approved