6
Irreducible numerical semigroups

6.2
Complete intersection numerical semigroups

6.2-1 AsGluingOfNumericalSemigroups

6.2-2 IsACompleteIntersectionNumericalSemigroup

6.2-3 CompleteIntersectionNumericalSemigroupsWithFrobeniusNumber

6.2-4 IsFreeNumericalSemigroup

6.2-5 FreeNumericalSemigroupsWithFrobeniusNumber

6.2-6 IsTelescopicNumericalSemigroup

6.2-7 TelescopicNumericalSemigroupsWithFrobeniusNumber

6.2-8 IsNumericalSemigroupAssociatedIrreduciblePlanarCurveSingularity

6.2-9 NumericalSemigroupsAssociatedIrreduciblePlanarCurveSingularityWithFrobeniusNumber

6.2-1 AsGluingOfNumericalSemigroups

6.2-2 IsACompleteIntersectionNumericalSemigroup

6.2-3 CompleteIntersectionNumericalSemigroupsWithFrobeniusNumber

6.2-4 IsFreeNumericalSemigroup

6.2-5 FreeNumericalSemigroupsWithFrobeniusNumber

6.2-6 IsTelescopicNumericalSemigroup

6.2-7 TelescopicNumericalSemigroupsWithFrobeniusNumber

6.2-8 IsNumericalSemigroupAssociatedIrreduciblePlanarCurveSingularity

6.2-9 NumericalSemigroupsAssociatedIrreduciblePlanarCurveSingularityWithFrobeniusNumber

An irreducible numerical semigroup is a semigroup that cannot be expressed as the intersection of numerical semigroups properly containing it.

It is not difficult to prove that a semigroup is irreducible if and only if it is maximal (with respect to set inclusion) in the set of all numerical semigroup having its same Frobenius number (see [RB03]). Hence, according to [FGR87] (respectively [BDF97]), symmetric (respectively pseudo-symmetric) numerical semigroups are those irreducible numerical semigroups with odd (respectively even) Frobenius number.

In [RGGJ03] it is shown that a nontrivial numerical semigroup is irreducible if and only if it has only one special gap. We use this characterization.

In this section we show how to construct the set of all numerical semigroups with a given Frobenius number. In old versions of the package, we first constructed an irreducible numerical semigroup with the given Frobenius number (as explained in [RG04]), and then we constructed the rest from it. That is why we separated both functions. The present version uses a faster procedure presented in [BR13].

Every numerical semigroup can be expressed as an intersection of irreducible numerical semigroups. If S can be expressed as S=S_1∩ ⋯∩ S_n, with S_i irreducible numerical semigroups, and no factor can be removed, then we say that this decomposition is minimal. Minimal decompositions can be computed by using Algorithm 26 in [RGGJ03].

`‣ IsIrreducibleNumericalSemigroup` ( s ) | ( function ) |

`s` is a numerical semigroup. The output is true if `s` is irreducible, false otherwise.

gap> IsIrreducibleNumericalSemigroup(NumericalSemigroup(4,6,9)); true gap> IsIrreducibleNumericalSemigroup(NumericalSemigroup(4,6,7,9)); false

`‣ IsSymmetricNumericalSemigroup` ( s ) | ( function ) |

`s` is a numerical semigroup. The output is true if `s` is symmetric, false otherwise.

gap> IsSymmetricNumericalSemigroup(NumericalSemigroup(10,23)); true gap> IsSymmetricNumericalSemigroup(NumericalSemigroup(10,11,23)); false

`‣ IsPseudoSymmetricNumericalSemigroup` ( s ) | ( function ) |

`s` is a numerical semigroup. The output is true if `s` is pseudo-symmetric, false otherwise.

gap> IsPseudoSymmetricNumericalSemigroup(NumericalSemigroup(6,7,8,9,11)); true gap> IsPseudoSymmetricNumericalSemigroup(NumericalSemigroup(4,6,9)); false

`‣ AnIrreducibleNumericalSemigroupWithFrobeniusNumber` ( f ) | ( function ) |

`f` is an integer greater than or equal to -1. The output is an irreducible numerical semigroup with frobenius number ` f`. From the way the procedure is implemented, the resulting semigroup has at most four generators (see [RG04]).

gap> FrobeniusNumber(AnIrreducibleNumericalSemigroupWithFrobeniusNumber(28)); 28

`‣ IrreducibleNumericalSemigroupsWithFrobeniusNumber` ( f ) | ( function ) |

`f` is an integer greater than or equal to -1. The output is the set of all irreducible numerical semigroups with frobenius number `f`.

gap> Length(IrreducibleNumericalSemigroupsWithFrobeniusNumber(39)); 227

`‣ DecomposeIntoIrreducibles` ( s ) | ( function ) |

`s` is a numerical semigroup. The output is a set of irreducible numerical semigroups containing it. These elements appear in a minimal decomposition of `s` as intersection into irreducibles.

gap> DecomposeIntoIrreducibles(NumericalSemigroup(5,6,8)); [ <Numerical semigroup>, <Numerical semigroup> ]

The cardinality of a minimal presentation of a numerical semigroup is alwas greater than or equal to its embedding dimension minus one. Complete intersection numerical semigroups are numerical semigroups reching this bound, and they are irreducible. It can be shown that every complete intersection (other that N) is a complete intersection if and only if it is the gluing of two complete intersections. When in this gluing, one of the copies is isomorphic to N, then we obtain a free semigroups in the sense of [BC77]. Two special kinds of free semigroups are telescopic semigroups ([KP95]) and those associated to an irreducible planar curve ([Zar86]). We use the algorithms presented in [AG13] to find the set of all complete intersections (also free, telescopic and associated to irreducible planar curves) numerical semigroups with given Frobenius number.

`‣ AsGluingOfNumericalSemigroups` ( s ) | ( function ) |

`s` is a numerical semigroup. Returns all partitions {A_1,A_2} of the minimal generating set of `s` such that `s` is a gluing of ⟨ A_1⟩ and ⟨ A_2⟩ by gcd(A_1)gcd(A_2)

gap> s := NumericalSemigroup( 10, 15, 16 ); <Numerical semigroup with 3 generators> gap> AsGluingOfNumericalSemigroups(s); [ [ [ 10, 15 ], [ 16 ] ], [ [ 10, 16 ], [ 15 ] ] ] gap> s := NumericalSemigroup( 18, 24, 34, 46, 51, 61, 74, 8 ); <Numerical semigroup with 8 generators> gap> AsGluingOfNumericalSemigroups(s); [ ]

`‣ IsACompleteIntersectionNumericalSemigroup` ( s ) | ( function ) |

`s` is a numerical semigroup. The output is true if the numerical semigroup is a complete intersection, that is, the cardinality of a (any) minimal presentation equals its embedding dimension minus one.

gap> s := NumericalSemigroup( 10, 15, 16 ); <Numerical semigroup with 3 generators> gap> IsACompleteIntersectionNumericalSemigroup(s); true gap> s := NumericalSemigroup( 18, 24, 34, 46, 51, 61, 74, 8 ); <Numerical semigroup with 8 generators> gap> IsACompleteIntersectionNumericalSemigroup(s); false

`‣ CompleteIntersectionNumericalSemigroupsWithFrobeniusNumber` ( f ) | ( function ) |

`f` is an integer greater than or equal to -1. The output is the set of all complete intersection numerical semigroups with frobenius number `f`.

gap> Length(CompleteIntersectionNumericalSemigroupsWithFrobeniusNumber(57)); 34

`‣ IsFreeNumericalSemigroup` ( s ) | ( function ) |

`s` is a numerical semigroup. The output is true if the numerical semigroup is free in the sense of [BC77]: it is either N or the gluing of a copy of N with a free numerical semigroup.

gap> IsFreeNumericalSemigroup(NumericalSemigroup(10,15,16)); true gap> IsFreeNumericalSemigroup(NumericalSemigroup(3,5,7)); false

`‣ FreeNumericalSemigroupsWithFrobeniusNumber` ( f ) | ( function ) |

`f` is an integer greater than or equal to -1. The output is the set of all free numerical semigroups with frobenius number `f`.

gap> Length(FreeNumericalSemigroupsWithFrobeniusNumber(57)); 33

`‣ IsTelescopicNumericalSemigroup` ( s ) | ( function ) |

`s` is a numerical semigroup. The output is true if the numerical semigroup is telescopic in the sense of [KP95]: it is either N or the gluing of ⟨ n_e⟩ and s'=⟨ n_1/d,..., n_e-1/d⟩, and s' is again a telescopic numerical semigroup, where n_1 < ⋯ < n_e are the minimal generators of `s`.

gap> IsTelescopicNumericalSemigroup(NumericalSemigroup(4,11,14)); false gap> IsFreeNumericalSemigroup(NumericalSemigroup(4,11,14)); true

`‣ TelescopicNumericalSemigroupsWithFrobeniusNumber` ( f ) | ( function ) |

`f` is an integer greater than or equal to -1. The output is the set of all telescopic numerical semigroups with frobenius number `f`.

gap> Length(TelescopicNumericalSemigroupsWithFrobeniusNumber(57)); 20

`‣ IsNumericalSemigroupAssociatedIrreduciblePlanarCurveSingularity` ( s ) | ( function ) |

`s` is a numerical semigroup. The output is true if the numerical semigroup is associated to an irreducible planar curve singularity ([Zar86]). These semigroups are telescopic.

gap> ns := NumericalSemigroup(4,11,14);; gap> IsNumericalSemigroupAssociatedIrreduciblePlanarCurveSingularity(ns); false gap> ns := NumericalSemigroup(4,11,19);; gap> IsNumericalSemigroupAssociatedIrreduciblePlanarCurveSingularity(ns); true

`‣ NumericalSemigroupsAssociatedIrreduciblePlanarCurveSingularityWithFrobeniusNumber` ( f ) | ( function ) |

`f` is an integer greater than or equal to -1. The output is the set of all numerical semigroups associated to irreducible planar curves singularities with frobenius number `f`.

gap> Length( > NumericalSemigroupsAssociatedIrreduciblePlanarCurveSingularityWithFrobeniusNumber > (57)); 7

A numerical semigroup is almost-symmetric ([BR97]) if its genus is the arithmetic mean of its Frobenius number and type. We use a procedure presented in [RG13] to determine the set of all almost-symmetric numerical semigroups with given Frobenius number. In order to do this, we first calculate the set of all almost-symmetric numerical semigroups that can be constructed from an irreducible numerical semigroup.

`‣ AlmostSymmetricNumericalSemigroupsFromIrreducible` ( s ) | ( function ) |

`s` is an irreducible numerical semigroup. The output is the set of almost-symetric numerical semigroups that can be constructed from `s` by removing some of its generators as explained in [RG13]).

gap> ns := NumericalSemigroup(5,8,9,11);; gap> AlmostSymmetricNumericalSemigroupsFromIrreducible(ns); [ <Numerical semigroup>, <Numerical semigroup>, <Numerical semigroup> ] gap> List(last,MinimalGeneratingSystemOfNumericalSemigroup); [ [ 5, 8, 9, 11 ], [ 5, 8, 11, 14, 17 ], [ 5, 9, 11, 13, 17 ] ]

`‣ IsAlmostSymmetricNumericalSemigroup` ( s ) | ( function ) |

`s` is a numerical semigroup. The output is true if the numerical semigroup is almost symmetric.

gap> IsAlmostSymmetricNumericalSemigroup(NumericalSemigroup(5,8,11,14,17)); true

`‣ AlmostSymmetricNumericalSemigroupsWithFrobeniusNumber` ( f ) | ( function ) |

`f` is an integer greater than or equal to -1. The output is the set of all almost symmetric numerical semigroups with Frobenius number `f`.

gap> Length(AlmostSymmetricNumericalSemigroupsWithFrobeniusNumber(12)); 15 gap> Length(IrreducibleNumericalSemigroupsWithFrobeniusNumber(12)); 2

generated by GAPDoc2HTML