cp's OEIS Frontend

A117762 a(1) = 6; for n>1, a(n) = prime(n)*(prime(n)^2 - 1)/2.

%I A117762 #36 Jan 29 2024 05:25:15
%S A117762 6,12,60,168,660,1092,2448,3420,6072,12180,14880,25308,34440,39732,
%T A117762 51888,74412,102660,113460,150348,178920,194472,246480,285852,352440,
%U A117762 456288,515100,546312,612468,647460,721392,1024128,1123980,1285608,1342740,1653900
%N A117762 a(1) = 6; for n>1, a(n) = prime(n)*(prime(n)^2 - 1)/2.
%C A117762 a(n) is the order of the matrix group PSL(2,prime(n)). - corrected by _Tom Edgar_, Sep 28 2015
%D A117762 Blyth and Robertson, Essential Student Algebra, Volume 5: Groups,Chapman and Hall, New York, page 14
%H A117762 G. C. Greubel, <a href="/A117762/b117762.txt">Table of n, a(n) for n = 1..1000</a>
%F A117762 a(n) = A127918(n), n>1.
%F A117762 a(n) = A000040(n)*A084921(n). - _R. J. Mathar_, Jan 29 2024
%t A117762 a[n_]= If[n==1, 6, Prime[n]*(Prime[n]^2 -1)/2];
%t A117762 Table[a[n], {n,40}]
%t A117762 Join[{6}, Table[Prime[n] (Prime[n]^2 - 1)/2, {n, 2, 40}]] (* _Vincenzo Librandi_, Sep 29 2015 *)
%o A117762 (PARI) a(n) = prime(n)*(prime(n)^2-1)/2;
%o A117762 vector(40, n, a(n+1)) \\ _Altug Alkan_, Sep 28 2015
%o A117762 (Magma) [6] cat [NthPrime(n)*(NthPrime(n)^2-1)/2: n in [2..40]]; // _Vincenzo Librandi_, Sep 29 2015
%o A117762 (SageMath)
%o A117762 def A117762(n): return nth_prime(n)*(nth_prime(n)^2-1)/2 + 3*int(n==1)
%o A117762 [A117762(n) for n in range(1,41)] # _G. C. Greubel_, Jul 21 2023
%Y A117762 Cf. A084920, A127918.
%K A117762 nonn,easy
%O A117762 1,1
%A A117762 _Roger L. Bagula_, Apr 14 2006