GAP 4.8.9 installation with standard packages -- copy to your CoCalc project to get it
<?xml version="1.0" encoding="UTF-8"?>1<Section>2<Heading>3Almost-symmetric numerical semigroups4</Heading>567A numerical semigroup is almost-symmetric (<Cite Key="BF97"></Cite>) if its genus is the arithmetic mean of its Frobenius number and type.8We use a procedure presented in <Cite Key="MR3169635"></Cite> to determine the set of all almost-symmetric numerical semigroups with given Frobenius9number. In order to do this, we first calculate the set of all almost-symmetric numerical semigroups that can be constructed from an irreducible10numerical semigroup.11<P/>12<ManSection>13<Func Arg="s" Name="AlmostSymmetricNumericalSemigroupsFromIrreducible"></Func>14<Description>15<A>s</A> is an irreducible numerical semigroup. The output is the set of almost-symetric numerical semigroups that can be constructed16from <A>s</A> by removing some of its generators as explained in <Cite Key="MR3169635"></Cite>).17<Example><![CDATA[18gap> ns := NumericalSemigroup(5,8,9,11);;19gap> AlmostSymmetricNumericalSemigroupsFromIrreducible(ns);20[ <Numerical semigroup with 4 generators>,21<Numerical semigroup with 5 generators>,22<Numerical semigroup with 5 generators> ]23gap> List(last,MinimalGeneratingSystemOfNumericalSemigroup);24[ [ 5, 8, 9, 11 ], [ 5, 8, 11, 14, 17 ], [ 5, 9, 11, 13, 17 ] ]25]]></Example>26</Description>27</ManSection>2829<ManSection>30<Func Arg="s" Name="IsAlmostSymmetric"></Func>31<Func Arg="s" Name="IsAlmostSymmetricNumericalSemigroup"></Func>32<Description>33<A>s</A> is a numerical semigroup. The output is true if the numerical semigroup is almost symmetric.34<Example><![CDATA[35gap> IsAlmostSymmetricNumericalSemigroup(NumericalSemigroup(5,8,11,14,17));36true37]]></Example>38</Description>39</ManSection>4041<ManSection>42<Func Arg="f" Name="AlmostSymmetricNumericalSemigroupsWithFrobeniusNumber"></Func>43<Description>44<A>f</A> is an integer greater than or equal to -1. The output is the set of all almost symmetric45numerical semigroups with Frobenius number <A>f</A>.46<Example><![CDATA[47gap> Length(AlmostSymmetricNumericalSemigroupsWithFrobeniusNumber(12));481549gap> Length(IrreducibleNumericalSemigroupsWithFrobeniusNumber(12));50251]]></Example>52</Description>53</ManSection>54</Section>555657