%I #10 Jul 15 2020 13:15:45
%S 2,3,6,9,10,12,13,16,17,20,23,26,28,31,33,40,43,44,54,58,72,77,92,93,
%T 98,105,110,117,119,120,122,125,132,143,157,164,182,201,204,205,229,
%U 231,266,275,279,286,288,290,292,293,304,309,318
%N Numbers n such that n^4+n-1 is prime.
%e 98^4 + 98 - 1 = 92236913 is prime. Thus, 98 is a member of this sequence.
%t Select[Range[400],PrimeQ[#^4+#-1]&] (* _Harvey P. Dale_, Jul 15 2020 *)
%o (Python)
%o import sympy
%o from sympy import isprime
%o {print(n) for n in range(10**3) if isprime(n**4+n-1)}
%o (PARI)
%o s=[]; for(n=1, 400, if(isprime(n^4+n-1), s=concat(s, n))); s \\ _Colin Barker_, Jan 31 2014
%Y Cf. A049408, A126424.
%K nonn
%O 1,1
%A _Derek Orr_, Jan 30 2014
|