trux <- function(X) { SC <- 10^as.integer(log10(X)-1) MX <- (X %/% (6*SC))*SC*2 return(0:4*MX) } trux(132) trux(495) trux(8734) trux(13044050) trux(94822324)