OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(5) = 44 = 2*2*11 is a term because it is composite and A000217(44) = 44*45/2 = 990 is divisible by 2+2+11 = 15.
MAPLE
filter:= proc(n) local t; not isprime(n) and (n*(n+1)/2/add(t[1]*t[2], t=ifactors(n)[2]))::integer end proc:
select(filter, [$4..1000]);
MATHEMATICA
Select[Range[1000], CompositeQ[#] && Divisible[#*(# + 1)/2, Plus @@ Times @@@ FactorInteger[#]] &] (* Amiram Eldar, Apr 13 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Apr 13 2022
STATUS
approved