login
A173720
Sum_{ 4 <= c <= A113646(n) } (n mod c), where c runs over all composites A002808.
1
1, 2, 3, 0, 6, 2, 11, 2, 5, 9, 25, 9, 28, 21, 28, 24, 50, 27, 56, 33, 44, 56, 92, 52, 66, 81, 88, 87, 134, 92, 142, 102, 122, 143, 165, 139, 200, 187, 212, 196, 264, 209, 280, 239, 244, 274, 352, 266, 298, 296, 330, 335, 424, 347, 384, 368, 407, 447, 547, 432, 535, 516, 529, 513, 558
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
Sequence in context: A115562 A343069 A127468 * A173717 A058301 A199601
KEYWORD
nonn,easy
AUTHOR
STATUS
approved