%I #25 Sep 08 2022 08:46:16
%S 3,109,751,15973,41161,54001,345601,1543501,1726273,2372761,3833281,
%T 8039359,10010113,18125251,25769593,63447211,75609559,93178009,
%U 147741001,164490259,170377561,270532609,432967681,457483993,509625001,551562859,596037313,1055592001
%N Primes of the form n^4 + n^3 + 1 with n positive.
%H Vincenzo Librandi, <a href="/A272572/b272572.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Table[n^4 + n^3 + 1, {n, 0, 170}], PrimeQ]
%o (Magma) [a: n in [0..200] | IsPrime(a) where a is n^4+n^3+1];
%o (PARI) lista(nn) = {for(n=1, nn, if(ispseudoprime(p=n^4+n^3+1), print1(p, ", "))); } \\ _Altug Alkan_, May 04 2016
%Y Cf. A002383, A245488, A272571.
%K nonn,less
%O 1,1
%A _Vincenzo Librandi_, May 03 2016
|