OFFSET
1,2
MAPLE
A173720 := proc(n) a := 0 ; for i from 1 do c := A002808(i) ; a := a + (n mod c) ; if c >= n then return a; end if; end do: end proc:
seq(A173720(n), n=1..80) ; # R. J. Mathar, Nov 26 2010
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Juri-Stepan Gerasimov, Nov 26 2010
STATUS
approved