0
$\begingroup$
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.

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

Browse other questions tagged or ask your own question.