OFFSET
1,1
EXAMPLE
164145 = 3 * 5 * 31 * 353 -> 3531353 is palindromic.
MATHEMATICA
pal4Q[n_]:=Module[{ds=Flatten[IntegerDigits/@(Table[First[#], {Last[ #]}]&/@ FactorInteger[n])]}, PrimeOmega[n]==4&&ds==Reverse[ds]]; Select[ Range[190000], pal4Q] (* Harvey P. Dale, Nov 12 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jul 15 1998
EXTENSIONS
One more term from Harvey P. Dale, Nov 12 2011
STATUS
approved