A138437 a(n) = ((n-th prime)^5-(n-th prime)^3)/12.
2, 18, 250, 1372, 13310, 30758, 117912, 205770, 535348, 1707230, 2383280, 5774442, 9648940, 12244078, 19103432, 34837218, 59559910, 70364110, 112485362, 150322620, 172723548, 256380280, 328205738, 465279540, 715535632, 875755850
Offset: 1
Programs
-
Mathematica
a = {}; Do[p = Prime[n]; AppendTo[a, (p^5 - p^3)/12], {n, 1, 50}]; a
-
PARI
forprime(p=2,1e3,print1((p^5-p^3)/12", ")) \\ Charles R Greathouse IV, Jul 15 2011
Formula
a(n) = A138406(n)/12. - R. J. Mathar, Oct 15 2017