OFFSET
1,1
COMMENTS
There is no further term up to 2*10^8.
EXAMPLE
174499873 is composite and all 10 numbers 174499873+4m^2 for m=1,2,...,10 are prime.
MATHEMATICA
Select[Range[140001, 364*10^7, 2], CompositeQ[#]&&AllTrue[#+{4, 16, 36, 64, 100, 144, 196, 256, 324, 400}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jun 12 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
_Farideh Firoozbakht_, Oct 17 2008
EXTENSIONS
a(8)-a(20) from _Donovan Johnson_, Nov 17 2008
STATUS
approved