%I #10 Jun 03 2015 17:44:50
%S 3,6,9,13,16,18,19,24,33,39,43,45,46,60,63,64,69,75,78,79,85,91,94,
%T 105,106,108,109,115,121,129,138,174,175,183,195,198,205,210,220,249,
%U 250,276,289,295,300,309,313,318,324,343,346,348
%N Numbers n such that n^4-n+1 is prime.
%e 115^4 - 115 + 1 = 174900511 is prime. Thus, 115 is a member of this sequence.
%t Select[Range[400],PrimeQ[#^4-#+1]&] (* _Harvey P. Dale_, Jun 03 2015 *)
%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