OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
a[k_] := Prime[k]^6 - 512;
Table[a[k], {k, 1, 30}]
Prime[Range[20]]^6-512 (* Harvey P. Dale, Jun 03 2014 *)
Table[Prime[n]^6 - 512, {n, 60}] (* Vincenzo Librandi, Aug 19 2016 *)
PROG
(Magma) [NthPrime(n)^6-512: n in [1..40]]; // Vincenzo Librandi, Ahu 19 2016
CROSSREFS
KEYWORD
sign
AUTHOR
Roger L. Bagula, Dec 27 2008
STATUS
approved