WolframAlpha computational knowledge AI
Mod[Trunc[10^(#2-Trunc[Log10[#]]-1)#],10]& [726433, 5]
COMPUTING...COMPUTING...