OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Prime[Range[1100]], PrimeQ[(#+9)^2+9]&&NoneTrue[Table[(#+j)^2+j, {j, 8}], PrimeQ]&] (* Harvey P. Dale, Jul 02 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Mar 02 2014
STATUS
approved