|
%I #6 Nov 18 2014 16:57:35
%S 3,7,11,29,193,139,107,181,101,17,379,641,167,3691,257,2243,1279,1217,
%T 3581,757,6113,971,5011,5843,317,15199,2741,761,59221,6067,14423,5167,
%U 13043,3191,43321,8819,2333,23497,15083,15107,414769,13841,20477,29101,3137
%N First prime p such that (p+n)^2+n is prime but (p+j)^2+j is not prime for all 0<j<n.
%H Alois P. Heinz, <a href="/A238673/b238673.txt">Table of n, a(n) for n = 1..130</a>
%t pQ[n_]:=Module[{pr=2,c},c=Table[(pr+i)^2+i,{i,n}];While[!PrimeQ[ Last[ c]]|| AnyTrue[Most[c],PrimeQ],pr=NextPrime[pr];c=Table[(pr+i)^2+i,{i,n}]];pr]; Array[pQ,50] (* _Harvey P. Dale_, Nov 18 2014 *)
%Y Row n=1 of A238086.
%K nonn
%O 1,1
%A _Alois P. Heinz_, Mar 02 2014
|
