A138454 a(n) = ((n-th prime)^6-(n-th prime)^4)/3.

16, 216, 5000, 38416, 585640, 1599416, 8018016, 15638520, 49252016, 198038680, 295526720, 854617416, 1582426160, 2105981416, 3591445216, 7385490216, 14056138760, 17168842840, 30146077016, 42691624080, 50435276016

Offset: 1

Author

Artur Jasinski, Mar 22 2008

Keywords

• nonn
• easy

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Programs

Mathematica

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

PARI

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