I don't think you can. Strongly related: stackoverflow.com/q/65881975/3358272. Why are you trying to retrieve the integer seed from the current state of the RNG?
not sure the point or if it is possible, but you can brute force it s <- lapply(1:10000, function(x) {set.seed(x); .Random.seed}); which(sapply(s, identical, b)) or you could write a while loop to run longer
s <- lapply(1:10000, function(x) {set.seed(x); .Random.seed}); which(sapply(s, identical, b))or you could write a while loop to run longer