systemnames = Names["System`*"];
Select[systemnames,MemberQ[Attributes[#],Listable]&]