set.seed(12)
(money=sort(round(rlnorm(100,6,4)))+1)
sinh(mean(asinh(money))) #gives 393.7934
exp(mean(log(money))) #gives 391.2577
prod(money)^(1/length(money)) #gives 391.2577 but can overflow
median(money) #261.5

set.seed(12)
(money=sort(round(rlnorm(100,6,4))))
sinh(mean(asinh(money))) #gives 369.4342
exp(mean(log(money))) #gives 0
prod(money)^(1/length(money)) #gives 0
median(money) #260.5

set.seed(12)
(money=sort(round(rlnorm(100,6,4)))-10000)
sinh(mean(asinh(money))) #gives -201.5435
exp(mean(log(money))) #gives NaN
prod(money)^(1/length(money)) #gives Inf so WRONG due to overflow
median(money) #-9739.5

set.seed(12)
(money=sort(round(rlnorm(100,6,4)))*-1)
sinh(mean(asinh(money))) #gives -369.4342
exp(mean(log(money))) #gives NaN
prod(money)^(1/length(money)) #gives 0
median(money) #-260.5