OFFSET
1,1
MATHEMATICA
Select[Range[4000], PrimeOmega[#]==PrimeNu[#]==3&&AllTrue[FactorInteger[#][[All, 1]], PalindromeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 27 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved