##leifert der Erzeuger der multiplikativen gruppe eines endlichen koerpers
##input: n in der groesse, in der der spass sich abspielen soll
##output: p primzahl ueber n, g erzeuger von Z/pZ*
erz := function(n)
local p,g,R,f;
p := NextPrime(n-1);
R := UnitGroup(ResidueClassRing(p));
f := R.ext1;
return [p, Coerce(Z,f(R.1))];
end;