OFFSET
1,1
FORMULA
a(n) = A138409(n)/2. - R. J. Mathar, Oct 15 2017
MATHEMATICA
a = {}; Do[p = Prime[n]; AppendTo[a, (p^6 - p^2)/2], {n, 1, 50}]; a
(#^6-#^2)/2&/@Prime[Range[30]] (* Harvey P. Dale, Dec 20 2021 *)
PROG
(PARI) forprime(p=2, 1e3, print1((p^6-p^2)/2", ")) \\ Charles R Greathouse IV, Jul 15 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Mar 19 2008
EXTENSIONS
Corrected by N. J. A. Sloane May 15 2008 (all the entries were wrong)
STATUS
approved