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,1

Links

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

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 *)

Prog

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

Crossrefs

Sequence in context: A297098 A159739 A181247 * A235758 A086650 A137701

Adjacent sequences: A138451 A138452 A138453 * A138455 A138456 A138457

Keyword

nonn,easy

Author

Artur Jasinski, Mar 22 2008

Status

approved