%I #6 Jul 02 2022 12:24:11
%S 101,191,233,311,881,1103,1291,1733,1831,1931,2011,2029,2113,2129,
%T 2269,2543,2843,3023,3089,3163,3299,3491,3701,3761,3943,4051,4391,
%U 4583,4951,5333,5441,5743,5801,6211,6421,6491,7019,7069,7121,7253,7331,8081,8171,8293
%N Primes p such that (p+9)^2+9 is prime but (p+j)^2+j is not prime for all 0<j<9.
%H Alois P. Heinz, <a href="/A238671/b238671.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[1100]],PrimeQ[(#+9)^2+9]&&NoneTrue[Table[(#+j)^2+j,{j,8}],PrimeQ]&] (* _Harvey P. Dale_, Jul 02 2022 *)
%Y Column k=9 of A238086.
%K nonn
%O 1,1
%A _Alois P. Heinz_, Mar 02 2014