Sum[DirichletCharacter[15, 1, i] PowerMod[i, -2, 15], {i, 1, 15}]