diff options
Diffstat (limited to 'src/math/subgroup.c')
| -rw-r--r-- | src/math/subgroup.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/math/subgroup.c b/src/math/subgroup.c index eb8ff27..fdf45a5 100644 --- a/src/math/subgroup.c +++ b/src/math/subgroup.c @@ -71,6 +71,9 @@ static GEN subgroups_2n_factors(GEN factors, size_t min_bits) { } GEN subgroups_prime(GEN order) { + if (isprime(order)) { + return gtovec(order); + } GEN factors = Z_factor(order); return gtovec(gel(factors, 1)); } |