FactorTermsList

FactorTermsList[expr] factors out the constant term of expr and puts the factored result into a List.

Attributes[FactorTermsList] := {Protected}

Simple examples

In[1]:= FactorTermsList[2*Sin[8*k]]
Out[1]= {2, Sin[8*k]}

In[2]:= FactorTermsList[(a)/(2) + (x)/(2)]
Out[2]= {(1)/(2), a + x}

In[3]:= FactorTermsList[a + x]
Out[3]= {1, a + x}