A138434 a(n) = ((n-th prime)^5-(n-th prime)^3)/4.
6, 54, 750, 4116, 39930, 92274, 353736, 617310, 1606044, 5121690, 7149840, 17323326, 28946820, 36732234, 57310296, 104511654, 178679730, 211092330, 337456086, 450967860, 518170644, 769140840, 984617214, 1395838620
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
a = {}; Do[p = Prime[n]; AppendTo[a, (p^5 - p^3)/4], {n, 1, 50}]; a (#^5-#^3)/4&/@Prime[Range[30]] (* Harvey P. Dale, Apr 30 2017 *)
-
PARI
forprime(p=2,1e3,print1((p^5-p^3)/4", ")) \\ Charles R Greathouse IV, Jul 15 2011
Formula
a(n) = A138406(n)/4. - R. J. Mathar, Oct 15 2017