OFFSET
1,1
EXAMPLE
a(n)=341 -> reverse(a(n)) = 143 gives the pair (143,341) of which only the larger value 341 is retained.
MATHEMATICA
rev[n_]:=FromDigits[Reverse[IntegerDigits[n]]]; Select[Range[825], !PrimeQ[#]&&PrimeOmega[#]==PrimeOmega[x=rev[#]]&&#>x&] (* Jayanta Basu, May 31 2013 *)
PROG
(PARI) isok(m) = my(k=fromdigits(Vecrev(digits(m)))); (m%10) && !isprime(m) && (m>k) && (bigomega(k) == bigomega(m)); \\ Michel Marcus, Aug 18 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Aug 15 1999
EXTENSIONS
Revised by Editors of OEIS, Oct 19 2019
Incorrect 394 and 523 removed and name clarified by Sean A. Irvine, Aug 17 2021
STATUS
approved