%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
|