A175170 Primes of the form k^6 - k^3 + 1.
46441, 117307, 530713, 5488957657, 13841169553, 24794753833, 82653662521, 151333837273, 282429005041, 464403405313, 782756904961, 999999000001, 1418517921241, 2699552509993, 2985982272001, 3138426605161, 4001502141001, 28722895031251, 47045874141001, 56693904845761, 78672332016307
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[ a: n in [0..250] | IsPrime(a) where a is n^3*(n^3-1)+1 ];
-
Mathematica
Select[Table[n^6-n^3+1,{n,0,2000}],PrimeQ] (* Vincenzo Librandi, Jul 26 2012 *)