OFFSET
1,1
MATHEMATICA
Select[Prime[Range[110]], CompositeQ[#+34]&&If[#<34, True, CompositeQ[ #- 34]]&] (* Harvey P. Dale, May 18 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jun 30 2008
EXTENSIONS
Corrected (17 inserted because -17 is not a prime) by R. J. Mathar, Apr 25 2010
STATUS
approved