LoadPackage("FrancyMonoids"); List([1..15], g->Length(NumericalSemigroupsWithGenus(g))); DrawTreeOfSonsOfNumericalSemigroup(NumericalSemigroup(1),6,MinimalGenerators); gens:=s->Difference(MinimalGenerators(s), [Multiplicity(s)]); s:=NumericalSemigroup(3,4,5); DrawTreeOfSonsOfNumericalSemigroup(s,5,gens); DrawTreeOfSonsOfNumericalSemigroup(s,15,gens); DrawTreeOfSonsOfNumericalSemigroup(s,25,gens);