Mathematica used to be easily able to solve an equation like this:
Reduce[Log[Sqrt[k p]/Log[k]] == 0, p]
(I can easily do it myself, at least I can find the solution
p = log(k)^2/k.)
Now in Mathematica 12, all I get is
Reduce::nsmet: This system cannot be solved with the methods available to Reduce.
I thought it might be an issue with assumptions, so I tried assuming both
p were sufficiently large, but it didn't help.
Is there a way to get Mathematica 12 to produce useful output on the problem above?