FUNCTION : numcuspequiv1 - Number of inequivalent cusps of of Gamma[1](N)
CALLING SEQUENCE : numcuspequiv1()
numcuspequiv1(N)
PARAMETERS : N - positive integer
SYNOPSIS : Returns the number of inequivalent cusps
of Gamma[1](N).
EXAMPLES :
> with(thetaids):
> numcuspequiv1();
---------------------------------------------------------
numcuspequiv1(N)
Returns the number of inequivalent cusps
of Gamma[1](N).
---------------------------------------------------------
> CW50:=CUSPSANDWIDMAKE1(50):
> CW50[1];
[oo, 0, 1/2, 1/3, 1/4, 1/5, 1/6, 1/7, 1/8, 1/9, 1/10, 1/11, 1/12, 1/13, 1/14,
1/15, 1/16, 1/17, 1/18, 1/19, 1/20, 1/21, 1/22, 1/23, 1/24, 1/25, 2/5, 2/25,
3/5, 3/10, 3/20, 3/25, 3/50, 4/5, 4/25, 6/25, 7/10, 7/15, 7/20, 7/25, 7/50,
11 11 12 13 14 17 19 21 23
8/15, 8/25, 9/10, 9/20, 9/25, 9/50, --, --, --, --, --, --, --, --, --]
25 50 25 50 15 50 50 50 50
> nops(CW50[1]);
56
> numcuspequiv1(50);
56
DISCUSSION : Gamma[1](50) has 56 inequivalent cusps.
SEE ALSO : CUSPSANDWIDMAKE1, cuspmake1