Table[Mod[Prime[k