OFFSET
1,1
FORMULA
MAPLE
A122220:=n->(ithprime(n)^6-ithprime(n)^2)/20: seq(A122220(n), n=1..40); # Wesley Ivan Hurt, Apr 14 2017
MATHEMATICA
(#^6-#^2)/20&/@Prime[Range[30]] (* Harvey P. Dale, Jan 19 2011 *)
PROG
(PARI) forprime(p=2, 1e3, print1((p^6-p^2)/20", ")) \\ Charles R Greathouse IV, Jul 15 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Apr 16 2008
STATUS
approved