A138445 a(n) = ((n-th prime)^6-(n-th prime^2))/6.
10, 120, 2600, 19600, 295240, 804440, 4022880, 7840920, 24672560, 99137080, 147917120, 427620840, 791683760, 1053560200, 1796535520, 3694059720, 7030088360, 8586728440, 15076396280, 21350046480, 25222370160, 40514574880
Offset: 1
Programs
-
Mathematica
a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^2)/6], {n, 1, 50}]; a -
PARI
forprime(p=2,1e3,print1((p^6-p^2)/6", ")) \\ Charles R Greathouse IV, Jul 15 2011
Formula
a(n) = A138409(n)/6. - R. J. Mathar, Oct 15 2017