login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A000114 Number of cusps of principal congruence subgroup GAMMA^{hat}(n). 2
3, 4, 6, 12, 12, 24, 24, 36, 36, 60, 48, 84, 72, 96, 96, 144, 108, 180, 144, 192, 180, 264, 192, 300, 252, 324, 288, 420, 288, 480, 384, 480, 432, 576, 432, 684, 540, 672, 576, 840, 576, 924, 720, 864, 792, 1104, 768 (list; graph; refs; listen; history; text; internal format)
OFFSET

2,1

COMMENTS

A001766(n)=n*a(n). - Michael Somos, Jan 29 2004

REFERENCES

R. A. Rankin, Modular Forms and Functions, Cambridge 1977, p. 62.

LINKS

N. J. A. Sloane, Table of n, a(n) for n = 2..10000

A. Papoulis, A new method of inversion of the Laplace transform, Quart. Appl. Math 14 (1957), 405-414. [Annotated scan of selected pages]

MAPLE

A000114 := proc(n) local b, d: if n = 2 then RETURN(3); else b := n^2/2; for d from 1 to n do if irem(n, d) = 0 and isprime(d) then b := b*(1-d^(-2)); fi; od; RETURN(b); fi: end:

MATHEMATICA

a[n_] := If[n == 2, 3, b = n^2/2; For[d = 1, d <= n, d++, If[Mod[n, d] == 0 && PrimeQ[d], b = b*(1-d^-2)]]; b]; Table[a[n], {n, 2, 50}] (* Jean-Fran├žois Alcover, Feb 04 2016, adapted from Maple *)

CROSSREFS

Sequence in context: A175894 A175029 A113728 * A136243 A250985 A051592

Adjacent sequences:  A000111 A000112 A000113 * A000115 A000116 A000117

KEYWORD

nonn,easy

AUTHOR

N. J. A. Sloane

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified March 25 01:30 EDT 2017. Contains 284036 sequences.