WolframAlpha computational knowledge AI
FourierSequenceTransform[UnitStep(n-1)/n,n,w]