Table[1-Sign[Mod[PrimePi[n 23],3]],{n,16,55}]