login
A173717
Sum of n mod m, summed over semiprimes m = 4, 6, 9, ..., smallest semiprime >= n.
1
1, 2, 3, 0, 6, 2, 11, 10, 4, 7, 22, 17, 22, 13, 18, 36, 43, 35, 42, 35, 21, 28, 59, 58, 42, 51, 79, 72, 83, 63, 74, 81, 59, 70, 82, 112, 126, 102, 116, 157, 173, 148, 164, 154, 146, 116, 179, 186, 154, 186, 153, 193, 212, 216, 180, 237, 200, 220, 300, 287, 309, 269, 324, 343, 301, 329, 353, 339
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
Cf. A106325.
Sequence in context: A343069 A127468 A173720 * A058301 A199601 A231602
KEYWORD
nonn,less
AUTHOR
EXTENSIONS
Corrected by R. J. Mathar, Nov 26 2010
STATUS
approved