OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Abbey Bourdon, Ozlem Ejder, Yuan Liu, Frances Odumodu, Bianca Viray, On the level of modular curves that give rise to sporadic j-invariants, arXiv:1808.04520 [math.NT], 2018. See Table 7.2 (an extract of current sequence).
FORMULA
a(n) = (p-1)*p*(p^2-1) where p = prime(n).
a(n) = A127917(n)*(prime(n)-1).
Subsequence of A047927. - Michel Marcus, Nov 25 2014
EXAMPLE
For n=3 (p=5) we have a(3) = 4*5*(25-1) = 480.
MATHEMATICA
gl2psz[p_] := (p - 1) p (p^2 - 1); sqg = gl2psz/@Prime@Range[m]
Table[(Prime[n] - 1) Prime[n] (Prime[n]^2 - 1), {n, 30}] (* Vincenzo Librandi, Aug 15 2018 *)
PROG
(PARI) a(n) = { my(p=prime(n)); (p-1)*p*(p^2-1) } \\ Joerg Arndt, Nov 23 2014
(Magma) [(NthPrime(n)-1)*NthPrime(n)*(NthPrime(n)^2-1): n in [1..100]]; // Vincenzo Librandi, Aug 15 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
John McGee, Nov 15 2014
STATUS
approved