How can I ask Mathematica to find all polynomial $ f \! $s such that, for a constant $ k $:
$$ f(x) \ f(y) = f(x) + f(y) + f(xy) + k $$
I've solved it on paper and want to check my results. I've tried the following, none of which work:
Solve[f[x] f[y] == f[x] + f[y] + f[x y] + k, f]
Solve[f[x] f[y] == f[x] + f[y] + f[x y] + k, f[x]]
Solve[f[x] f[y] == f[x] + f[y] + f[x y] + k, f[z]]
Reduce[f[x] f[y] == f[x] + f[y] + f[x y] + k, f]
f[x_] := Sum[Subscript[c, i] x^i, {i, 0, n}]; Solve[f[x] f[y] == f[x] + f[y] + f[x y] + k, Subscript[c, 0]]