OFFSET
1,1
MATHEMATICA
With[{nn=150}, Module[{palpr=Reverse[Select[Prime[Range[nn]], IntegerDigits[ #] == Reverse[ IntegerDigits[#]]&]], semis = Select[Range[2nn], PrimeOmega[ #] == 2&]}, Flatten[Table[Select[palpr, #<semis[[n]]&, 1], {n, Length[ semis]}]]]] (* Harvey P. Dale, Jun 12 2014 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Giovanni Teofilatto, Sep 08 2010
STATUS
approved