OFFSET
1,1
COMMENTS
2*2+105=109, 2*11+105=127
MATHEMATICA
a=3*5*7; lst={}; Do[p=Prime[n]; If[PrimeQ[2*p+a], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[100]], PrimeQ[2#+105]&] (* Harvey P. Dale, Apr 02 2018 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 30 2009
EXTENSIONS
Edited by Charles R Greathouse IV, Nov 11 2009
STATUS
approved