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

Links

Table of n, a(n) for n=1..23.

Formula

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

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 *)

Prog

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

Crossrefs

Sequence in context: A008656 A179717 A086864 * A058837 A042748 A202074

Adjacent sequences: A138438 A138439 A138440 * A138442 A138443 A138444

Keyword

nonn,easy

Author

Artur Jasinski, Mar 19 2008

Extensions

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

Status

approved