|
%I #19 Apr 11 2022 22:08:35
%S 3,20963909,45608209,46939069,57856709,73805093,83307563,83983931,
%T 89836889,90151643,95786459,98527859,98886679,116260099,118084559,
%U 118955549,153404593,155710213,190926341,204854891,221010899,238175309,271884073,295874083,299614369
%N First member of a prime 5-tuple in a p^2+p-1 progression.
%C Subsequence of A057325.
%H Pierre CAMI, <a href="/A229092/b229092.txt">Table of n, a(n) for n = 1..62</a>
%t pqQ[p_]:=AllTrue[Rest[NestList[#^2+#-1&,p,4]],PrimeQ]; Select[Prime[ Range[ 16232600]],pqQ] (* _Harvey P. Dale_, Oct 16 2021 *)
%o (PARI) is(n)=for(k=1,5,if(!isprime(n),return(0));n=n^2+n-1);1 \\ _Charles R Greathouse IV_, Sep 13 2013
%Y Cf. A057325
%K nonn
%O 1,1
%A _Pierre CAMI_, Sep 13 2013
|
