OFFSET
1,1
COMMENTS
This sequence is infinite under Bunyakovsky's conjecture. [Charles R Greathouse IV, Oct 25 2011]
MATHEMATICA
lst={}; Do[p=LegendreP[4, n]; If[PrimeQ[p], AppendTo[lst, p]], {n, 1, 10^3, 2}]; lst
Select[LegendreP[4, Range[1, 301, 2]], PrimeQ] (* Harvey P. Dale, Jul 18 2013 *)
PROG
(PARI) forstep(n=1, 1e4, 2, if(isprime(t=pollegendre(4, n)), print1(t", "))) \\ Charles R Greathouse IV, Oct 25 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 11 2008
STATUS
approved