[, t, n] ;

FourierCoefficient[Log[x], x, 8]

<< Calculus`FourierTransform`
Print[Simplify[FourierSinSeries[Log[t], t, 3]]];

N[SinIntegral[2 π]]