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,1

Links

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

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

Mathematica

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

Prog

(PARI) forprime(p=2, 1e3, print1((p^6-p^3)/2", ")) \\ Charles R Greathouse IV, Jul 15 2011
(Magma) [(p^6 - p^3) / 2: p in PrimesUpTo(100)]; // Vincenzo Librandi, Nov 14 2018

Crossrefs

Cf. A000217, A006093, A030078, A060800.

Sequence in context: A173421 A085744 A163719 * A276286 A125440 A122732

Adjacent sequences: A138449 A138450 A138451 * A138453 A138454 A138455

Keyword

nonn,easy

Author

Artur Jasinski, Mar 22 2008

Status

approved