%I #8 Jul 18 2013 18:48:38

%S 10321,63601,364321,1706641,3091201,4036801,12356401,25212001,

%T 88144321,124222321,1068056641,1368874321,1541134321,1829380321,

%U 3088264321,3568714801,9348110641,11616472321,12031309201,13342670641,15762902641

%N Primes of the form P_4(n) where P_4(n) is the Legendre polynomial of order 4 at n.

%C This sequence is infinite under Bunyakovsky's conjecture. [_Charles R Greathouse IV_, Oct 25 2011]

%t lst={};Do[p=LegendreP[4,n];If[PrimeQ[p],AppendTo[lst,p]],{n,1,10^3,2}];lst

%t Select[LegendreP[4,Range[1,301,2]],PrimeQ] (* _Harvey P. Dale_, Jul 18 2013 *)

%o (PARI) forstep(n=1,1e4,2,if(isprime(t=pollegendre(4,n)),print1(t", "))) \\ _Charles R Greathouse IV_, Oct 25 2011

%K nonn,easy

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Sep 11 2008