inp <- "שלום"
nohash <- sub("#", "0", strsplit(inp, "&")[[1]]) # cvrt # to 0
nohash
# [1] "" "0x5E9;" "0x5DC;" "0x5D5;" "0x5DD;"
strtoi( sub(";", "", nohash) ) # remove trailing ";" and cvrt to dec
# [1] 0 1513 1500 1493 1501
Изменить время истечения при добавлении в мой комментарий, поэтому я добавлю эту ссылку, которая, кажется, имеет таблицу конверсий :