OFFSET
1,2
MAPLE
A173717 := proc(n) a := 0 ; for i from 1 do s := A001358(i) ; a := a + (n mod s) ; if s >= n then return a; end if; end do: end proc: # R. J. Mathar, Nov 26 2010
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Juri-Stepan Gerasimov, Nov 25 2010
EXTENSIONS
Corrected by R. J. Mathar, Nov 26 2010
STATUS
approved