A173179 - OEIS

%I #17 Sep 08 2022 08:45:50

%S 3,8,9,11,14,17,18,20,24,27,38,41,45,48,50,51,56,59,60,62,63,71,77,78,

%T 81,84,86,87,90,92,93,95,101,111,113,114,119,146,147,153,155,171,179,

%U 186,204,207,219,225,230,231,233,234,240,246,254,255,267,284,287,291

%N Numbers n such that n^4-n^3-n^2-n-1 is prime.

%C All terms == 0 or 2 (mod 3). - _Robert Israel_, Mar 09 2020

%H Robert Israel, <a href="/A173179/b173179.txt">Table of n, a(n) for n = 1..10000</a>

%p select(t -> isprime(t^4-t^3-t^2-t-1), [$2..1000]); # _Robert Israel_, Mar 09 2020

%t f[n_]:=n^4-n^3-n^2-n-1;Select[Range[6! ],PrimeQ[f[ #1]]&]

%o (PARI) is(n)=isprime(n^4-n^3-n^2-n-1) \\ _Charles R Greathouse IV_, Jun 06 2017

%o (Magma) [n: n in [2..350] | IsPrime(n^4 - n^3 - n^2 - n - 1)]; // _Vincenzo Librandi_, Mar 16 2020

%Y Cf. A125082, A002328, A162294.

%K nonn,easy

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Feb 11 2010

%E Edited by _N. J. A. Sloane_, Apr 10 2010