Table[Mod[Round[PolyGamma[n]*535],2],{n,3,44}]