another interesting math riddle

[Joe Horn]

UBASIC:

list
   10   repeat:inc X0:X=X0:clr T
   20   while X>0:X\=10:T+=!(res):wend
   30   until T=X0:print T:goto 10
OK
run
 1
 2
 145
 40585