Scan[Print[IntegerString[#, 2], ",", IntegerString[#, 8],
",",#, ",",IntegerString[#, 16],",", IntegerString[#, 36]]&, Range[38]]