%I #10 Sep 08 2022 08:45:51
%S 46441,117307,530713,5488957657,13841169553,24794753833,82653662521,
%T 151333837273,282429005041,464403405313,782756904961,999999000001,
%U 1418517921241,2699552509993,2985982272001,3138426605161,4001502141001,28722895031251,47045874141001,56693904845761,78672332016307
%N Primes of the form n^6-n^3+1.
%H Vincenzo Librandi, <a href="/A175170/b175170.txt">Table of n, a(n) for n = 1..1000</a>
%F A000040 INTERSECT A060891.
%t Select[Table[n^6-n^3+1,{n,0,2000}],PrimeQ] (* _Vincenzo Librandi_, Jul 26 2012 *)
%o (Magma)[ a: n in [0..250] | IsPrime(a) where a is n^3*(n^3-1)+1 ]
%Y Cf. A164989.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Dec 03 2010