# States surrounding/adjacent to a given state

I want a function that gives a list of all states adjacent to a given state. How can I do this in Mathematica?

f[x_] := AdministrativeDivisionData[x, "BorderingStates"]

f[{"California", "UnitedStates"}]
{Entity["AdministrativeDivision", {"Oregon", "UnitedStates"}],