%I #13 Sep 08 2022 08:45:39

%S -448,217,15113,117137,1771049,4826297,24137057,47045369,148035377,

%T 594822809,887503169,2565725897,4750103729,6321362537,10779214817,

%U 22164360617,42180533129,51520373849,90458381657,128100283409,151334225777,243087455009

%N a(n) = prime(n)^6 - 512.

%H G. C. Greubel, <a href="/A153486/b153486.txt">Table of n, a(n) for n = 1..1000</a>

%t a[k_] := Prime[k]^6 - 512;

%t Table[a[k], {k, 1, 30}]

%t Prime[Range[20]]^6-512 (* _Harvey P. Dale_, Jun 03 2014 *)

%t Table[Prime[n]^6 - 512, {n, 60}] (* _Vincenzo Librandi_, Aug 19 2016 *)

%o (Magma) [NthPrime(n)^6-512: n in [1..40]]; // _Vincenzo Librandi_, Ahu 19 2016

%K sign

%O 1,1

%A _Roger L. Bagula_, Dec 27 2008