Get List of All Atomic Expressions [duplicate]

Cases[Names["System*"],x_:> If[StringTake[x, 1] == "\$", Nothing, If[AtomQ@ToExpression[x], ToExpression[x], Nothing]]]


This still gives me a list of atoms which are actually Built-in Function heads. How do it find and remove them to get a list of all available true atoms.

• Have you seen WolframLanguageData[EntityClass["WolframLanguageSymbol", "Atomic"]]? (It's not complete; Integer and Real` are not there, for example.) This is a previous thread. – J. M.'s discontentment Jun 4 '16 at 17:04
• Yes, but how do i get the complete list, from the list which i have after the evaluation of the code. – user13892 Jun 4 '16 at 17:05