for(i in 2:63){a=c() for(j in 2:i){m=i%/%j^(6:0)%%j a=c(a,rawToChar(as.raw(48+m+(m>9)*39)))} cat(sub("0+","",a));cat(" ")}