|
%I #6 Apr 04 2024 10:57:49
%S 107,293,359,389,397,401,433,461,647,727,797,821,977,1063,1163,1229,
%T 1301,1367,1427,1451,1499,1571,1657,1721,1987,2099,2111,2179,2207,
%U 2351,2447,2707,2797,2801,2861,2957,3037,3187,3221,3457,3463,3527,3541,3557,3607
%N Primes p such that (p+7)^2+7 is prime but (p+j)^2+j is not prime for all 0<j<7.
%H Alois P. Heinz, <a href="/A238669/b238669.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[600]],PrimeQ[(#+7)^2+7]&&NoneTrue[Table[(#+j)^2+j,{j,6}],PrimeQ]&] (* _Harvey P. Dale_, Apr 04 2024 *)
%Y Column k=7 of A238086.
%K nonn
%O 1,1
%A _Alois P. Heinz_, Mar 02 2014
|
