login
A138441
a(n) = ((n-th prime)^6-(n-th prime^2))/2.
5
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
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
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