Needs["Notation`"]
In[]:=
Symbolize
The symbol must be in a box. You can accomplish this by using the menu that appears when Needs[“Notation`”] executes. Or you can create it explicitly as shown here.
Symbolize[ParsedBoxWrapper[SubscriptBox["x", "1"]]]