A138452 a(n) = ((n-th prime)^6-(n-th prime)^3)/2.

28, 351, 7750, 58653, 885115, 2412306, 12066328, 23519511, 74011861, 297399466, 443736945, 1282837878, 2375017660, 3160641771, 5389555753, 11082106126, 21090164131, 25760073690, 45229040703, 64049963005, 75666918636

Offset: 1

Author

Artur Jasinski, Mar 22 2008

Keywords

• nonn
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000217, A006093, A030078, A060800.

Programs

Magma

[(p^6 - p^3) / 2: p in PrimesUpTo(100)]; // Vincenzo Librandi, Nov 14 2018

Mathematica

a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^3)/2], {n, 1, 24}]; a

PARI

forprime(p=2,1e3,print1((p^6-p^3)/2", ")) \\ Charles R Greathouse IV, Jul 15 2011

Formula

a(n) = binomial(prime(n)^3, 2) = A000217(A030078(n)). - Jon Maiga, Nov 14 2018

a(n) = (A030078(n) * A006093(n) * A060800(n))/2. - Vincenzo Librandi, Nov 14 2018