OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..501
MATHEMATICA
dpf2Q[n_]:=Module[{pfs=Transpose[FactorInteger[n]][[1]], a, b}, a=First[pfs]; b=Last[pfs]; PrimeNu[n]==PrimeOmega[n]==2 && a==FromDigits[Reverse[ IntegerDigits[ a]]] && b==FromDigits[Reverse[ IntegerDigits[b]]]]; Select[ Range[1, 3801, 2], dpf2Q] (* Harvey P. Dale, Jul 14 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 14 2024
STATUS
approved