How can I write the "Real number symbol" ℝ
in Mathematica?

You can do it with escdsResc
You could also replace Another way is writing Reference: http://reference.wolfram.com/mathematica/guide/NotationalAlphabetCharacters.html#647579870 

