Mod[Trunc[10^(#2-Trunc[Log10[#]]-1)#],10]& [726433, 5]