A138433 a(n) = ((n-th prime)^5-(n-th prime)^3)/3.

8, 72, 1000, 5488, 53240, 123032, 471648, 823080, 2141392, 6828920, 9533120, 23097768, 38595760, 48976312, 76413728, 139348872, 238239640, 281456440, 449941448, 601290480, 690894192, 1025521120, 1312822952, 1861118160

Offset: 1

Author

Artur Jasinski, Mar 19 2008

Keywords

• nonn
• easy

Programs

Mathematica

a = {}; Do[p = Prime[n]; AppendTo[a, (p^5 - p^3)/3], {n, 1, 50}]; a
(#^5-#^3)/3&/@Prime[Range[30]] (* Harvey P. Dale, Apr 27 2019 *)

PARI

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

Formula

a(n) = A138406(n)/3. - R. J. Mathar, Oct 15 2017