This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A000114 #32 Jun 01 2025 03:20:48
%S A000114 3,4,6,12,12,24,24,36,36,60,48,84,72,96,96,144,108,180,144,192,180,
%T A000114 264,192,300,252,324,288,420,288,480,384,480,432,576,432,684,540,672,
%U A000114 576,840,576,924,720,864,792,1104,768,1176,900,1152,1008,1404,972,1440
%N A000114 Number of cusps of principal congruence subgroup GAMMA^{hat}(n).
%D A000114 Robert A. Rankin, Modular Forms and Functions, Cambridge 1977, p. 62.
%H A000114 N. J. A. Sloane, <a href="/A000114/b000114.txt">Table of n, a(n) for n = 2..10000</a>
%H A000114 Ioannis Ivrissimtzis, David Singerman, and James Strudwick, <a href="https://arxiv.org/abs/1909.08568">From Farey fractions to the Klein quartic and beyond</a>, arXiv:1909.08568 [math.GR], 2019. See mu(n)/n, p. 3.
%H A000114 Athanasios Papoulis, <a href="https://doi.org/10.1090/qam/82734">A new method of inversion of the Laplace transform</a>, Quart. Appl. Math., Vol. 14, No. 4 (1957), 405-414; <a href="/A000108/a000108_8.pdf">Annotated scan of selected pages</a>.
%F A000114 A001766(n) = n*a(n). - _Michael Somos_, Jan 29 2004
%F A000114 a(n) = ((n^2)/2)*Product_{p | n, p prime} (1-1/p^2), for n>=3. - _Michel Marcus_, Oct 23 2019
%F A000114 From _Amiram Eldar_, Jun 01 2025: (Start)
%F A000114 a(n) = A007434(n)/2 for n >= 3.
%F A000114 Sum_{k=1..n} a(k) ~ n^3 / (6*zeta(3)). (End)
%p A000114 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:
%t A000114 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 *)
%o A000114 (PARI) a(n) = if (n==2, 3, my(f=factor(n)); prod(k=1, #f~, 1-1/f[k,1]^2)*n^2/2); \\ _Michel Marcus_, Oct 23 2019
%Y A000114 Cf. A001766, A002117, A007434.
%K A000114 nonn,easy
%O A000114 2,1
%A A000114 _N. J. A. Sloane_