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

30, 360, 7800, 58800, 885720, 2413320, 12068640, 23522760, 74017680, 297411240, 443751360, 1282862520, 2375051280, 3160680600, 5389606560, 11082179160, 21090265080, 25760185320, 45229188840, 64050139440, 75667110480, 121543724640, 163470183240

Offset: 1

Author

Artur Jasinski, Mar 19 2008

Keywords

• nonn
• easy

Programs

Mathematica

a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^2)/2], {n, 1, 50}]; a
(#^6-#^2)/2&/@Prime[Range[30]] (* Harvey P. Dale, Dec 20 2021 *)

PARI

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

Formula

a(n) = A138409(n)/2. - R. J. Mathar, Oct 15 2017

Extensions

Corrected by N. J. A. Sloane May 15 2008 (all the entries were wrong)