R语言输出1-10000里含7或者7的倍数有多少个并求和请问该怎么解