I have the following list:
l={2 x, x, 4 x, x, x, 2 x, 4 x, x, x, 2 x}
I want to pick those elements that have coefficients bigger than 1, i.e. {2 x, 4 x, 2 x, 4 x, 2 x}
I tried
Select[CoefficientList[{2 x, x, 4 x, x, x, 2 x, 4 x, x, x, 2 x},
x][[All, 2]], # > 1 &]*x
which return what I need but I believe there must be a much shorter and faster way? Also I would like to find the position of {2 x, 4 x, 2 x, 4 x, 2 x}
in my original list so I did:
Position[{2 x, x, 4 x, x, x, 2 x, 4 x, x, x, 2 x}, {2 x, 4 x, 2 x,
4 x, 2 x}]
which does not work so I must be wrong